 |
ขอ code ปุ่มเพิ่มข้อมูล vb6.0 เชื่อมต่อ Access หน่อยครับ |
| |
 |
|
|
 |
 |
|
'*** Connection String ***'
Dim strConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";Jet OLEDB:Database Password=;"
'*** Query ***'
Dim Conn As ADODB.Connection
Set Conn = New ADODB.Connection
Set objRec = New ADODB.Recordset
strSQL = "SELECT * FROM.... "
Conn.ConnectionString = strConnectionString
Conn.Open
objRec.Open strSQL, Conn, 1, 3
'*** Execute ***'
Dim Conn As ADODB.Connection
Set Conn = New ADODB.Connection
Conn.ConnectionString = strConnectionString
Conn.Open
strSQL = "INSERT INTO...."
Conn.Execute (strSQL)
If Err.Number <> 0 Then
Exit Function
End If
Conn.Close
|
 |
 |
 |
 |
| Date :
2011-03-08 21:02:33 |
By :
webmaster |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
งง อะครับ มีcode ที่ ใช้งานได้ไหมครับ ต้องส่งพรุ่งนี้แล้ว = =
|
| |
|
|
| |
| Date :
2011-03-08 23:59:18 |
By :
เต้ย |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ทำไมมีแต่ SQL อะคับ คือที่ผมเรียนเขาไม่ได้ใช้ code SQL อ่า มันเปง code ประมาณตัวอย่าง
|
| |
|
|
| |
| Date :
2011-03-09 00:12:40 |
By :
เต้ย |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ต้องการโค้ดเชื่อฐานข้อมูลAccess 2007กับโปรแกรมvb6.0 ช่วหน่อยนะค่ะต้องทำโครงการส่ง
|
| |
|
|
| |
| Date :
2012-11-13 09:17:38 |
By :
นู๋ใหม่ |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code (VB.NET)
Dim cn As New OleDb.OleDbConnection
Dim cmd As New OleDb.OleDbCommand
cn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NewData.mdb")
cn.Open()
cmd = New OleDb.OleDbCommand("Insert Into Employee (EmpID,EmpName,EmpAddress,EmpPosition) Values ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "', '" & TextBox4.Text & "')", cn)
cmd.ExecuteNonQuery()
MsgBox(" บันทึกข้อมูลเรียบร้อยแล้ว ")
cn = Nothing
Me.Close()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End Sub
|
| |
|
|
| |
| Date :
2013-04-01 20:41:15 |
By :
bigkikeo |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
|
| |
|
|
| |
| Date :
2013-04-02 06:10:33 |
By :
mr.win |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
vb6 ขอตัวอย่างหน่อยค่ะ
ต้องการให้ข้้อมูลที่เราเพิ่มใหม่ในaccessจากฟอร์มย่อย มาโชว์ใน coombobox ในฟอร์มหลัก
ตอนนี้ที่ทำได้คือ ข้อมูลที่เพิ่มใหม่ลงฐานข้อมูล แต่ไม่โชว์ในcomboboxต้องเพิ่มใหม่ ข้อมูลที่เพิ่มก่อนหน้าจึงจะโชว์
Private Sub Combo2_KeyDown(KeyCode As Integer, Shift As Integer)
Set RS = New ADODB.Recordset
RS.Open "select * from Table2 where SN = '" & Combo2.Text & "'", cn, adOpenKeyset, adLockOptimistic
If Not RS.EOF Then
Me.Combo1.Text = RS!Device
End If
RS.Close
Set RS = Nothing
End Sub
|
| |
|
|
| |
| Date :
2014-05-16 14:11:13 |
By :
koy |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
Load balance : Server 04
