Dim objConn As New SqlConnection Dim strConnString, strSQL As String Dim objCmd As SqlCommand() strConnString = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase;Max Pool Size=400;Connect Timeout=600;" objConn.ConnectionString = strConnString objConn.Open() For i = 0 To DataGridView.RowCount - 1 strSQL = "INSERT INTO files (Name,FilesName,FilesType) " & _ " VALUES " & _ " (@sName,@sFilesName,@sFilesType)" objCmd = New SqlCommand(strSQL, objConn) objCmd.Parameters.Add("@sName", SqlDbType.VarChar).Value = Grid.items(i).value objCmd.Parameters.Add("@sFilesName", SqlDbType.Binary).Value = Grid.items(i).value objCmd.Parameters.Add("@sFilesType", SqlDbType.VarChar).Value = Grid.items(i).value objCmd.ExecuteNonQuery() Next objConn.Close() objConn = Nothing
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง