ประกาศตัวแปร
dim conn as new OleDbConnection("Provider = Microsoft.jet.OleDb.4.0;data source ="& server.mapPath("ตำแหน่งของ database"))
dim comm as new OleDbCommand(insert into ชื่อTable (ชื่อfield) Values (ชื่อTextbox.text),conn)
แล้วก็ใช้คำสั่ง
conn.open
comm.ExecuteNonQuery
conn.close
Dim CurrentFileName As String
Dim CurrentPath As String
CurrentFileName = FileUpload1.FileName
If (Path.GetExtension(CurrentFileName).ToLower = ".txt" & ".jpg") Then
Exit Sub
End If
CurrentPath = Request.PhysicalApplicationPath
CurrentPath += "\MyFiles\"
If FileUpload1.HasFile Then
CurrentPath += CurrentFileName
FileUpload1.SaveAs(CurrentPath)
MsgBox("เพิ่มไฟล์ " & CurrentFileName.ToString & " เรียบร้อย", MsgBoxStyle.OkOnly, "Insert Data : AlertBox")
End If
โค้ด upload ไฟล์ ลองดู เหอๆ
Date :
2010-06-21 15:33:29
By :
akura
No. 6
Guest
มันติด comm.ExecuteNonQuery ตลอดเลย ช่วยทีคับ
Date :
2010-09-22 20:52:50
By :
PDK
No. 7
Guest
Dim conn As New OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;data source=database.mdb")
Dim commd As OleDb.OleDbCommand
Dim SQL1 As String = "insert into tbuserlogin(username,password) values ('" & TextBox1.Text.Trim.ToUpper & "','" & TextBox2.Text.Trim & "' )"
commd = New OleDb.OleDbCommand(SQL1, conn)
conn.Open() commd.ExecuteNonQuery()
conn.Close()
Load balance : Server 05
