 |
|
Code (VB.NET)
Dim objConn As New SqlConnection
Dim strConnString, strSQL As String
strConnString = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase;Max Pool Size=400;Connect Timeout=600;"
strSQL = "INSERT INTO files (Name,FilesName,FilesType,CreateDate) " & _
" VALUES " & _
" (@sName,@sFilesName,@sFilesType@sCreateDate)"
objConn.ConnectionString = strConnString
objConn.Open()
Dim objCmd As New SqlCommand(strSQL, objConn)
objCmd.Parameters.Add("@sName", SqlDbType.VarChar).Value = Me.txtName.Text
objCmd.Parameters.Add("@sFilesName", SqlDbType.Binary).Value = imbByte
objCmd.Parameters.Add("@sFilesType", SqlDbType.VarChar).Value = strMIME
objCmd.Parameters.Add("@sCreateDate", SqlDbType.Date).Value = Me.txtDate.Text
objCmd.ExecuteNonQuery()
objConn.Close()
objConn = Nothing
|
 |
 |
 |
 |
Date :
2012-07-11 06:23:07 |
By :
mr.win |
|
 |
 |
 |
 |
|
|
 |