Snasui Excel Forum

Code: Select all

Option Explicit
Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String

Private Sub Command1_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub Form_Load()
If Conn.State = 1 Then Conn.Close
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\sangket.i\My Documents\VBA\Student.mdb;Persist Security Info=False"
  Adodc1.Recordset.ActiveConnection.BeginTrans
   Adodc1.RecordSource = "SELECT * FROM Tcustumer"

MsgBox " Connection complete", vbInformation, "status connecting"
End Sub

Code: Select all

Private Sub CommandButton1_Click()
    Dim Conn As New ADODB.Connection
    Dim MyRecSet As New ADODB.Recordset
    If Conn.State = 1 Then Conn.Close
    Conn.Open "provider = microsoft.jet.oledb.4.0 ;data source = E:\Customer.mdb ;" _
    & "Jet OLEDB:System Database=system.mdw;"
    Sql = "insert into student (name , Lname) values(" & Text1.Text & " , " & Text2.Text & ")"
    MyRecSet.Open Sql, Conn
    MsgBox "Save complete", vbOKOnly + vbInformation, "Oh ye!!!"
    Text1.Text = ""
    Text2.Text = ""
    Set Conn = Nothing
    Set MyRecset = Nothing
End Sub

Code: Select all

Private Sub Cmd1_Click()

If conn.State = 1 Then conn.Close
conn.Open "provider = microsoft.jet.oledb.4.0 ;data source =" & App.Path & "\Customer.mdb"
Sql = (" insert into student (Fname , Lname ) values(" & Text1.Text & " , " & Text2.Text & ")")


MsgBox "Save complete", vbOKOnly + vbInformation, " ยืนยัน"
Text1.Text = ""
Text2.Text = ""

Code: Select all

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\myAccess2007file.accdb;
Persist Security Info=False;

Code: Select all

If conn.State = 1 Then conn.Close
conn.Open "provider = microsoft.jet.oledb.4.0 ;data source =" & App.Path & "\Customer.mdb"
Sql = (" insert into student (Fname , Lname ) values(" & Text1.Text & " , " & Text2.Text & ")")

'rs.Open , Sql, conn, 3, 3
MsgBox "Save complete", vbOKOnly + vbInformation, " ยืนยัน"

Code: Select all

Private Sub Form_Load()
If conn.State = 1 Then conn.Close
conn.Open "provider=Microsoft.JET.OLEDB.4.0;data source=C:\Documents and Settings\sangket.i\My Documents\VBA\db9.mdb"
MsgBox " Connection complete", vbInformation, "status connecting"
End Sub

Code: Select all

Private Sub Form_Load()
If conn.State = 1 Then conn.Close
conn.Open "provider=Microsoft.JET.OLEDB.4.0;data source=C:\Documents and Settings\sangket.i\My Documents\VBA\Database1.accdb"
MsgBox " Connection complete", vbInformation, "status connecting"

End Sub

Code: Select all

Option Explicit
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String

Private Sub Form_Load()
If conn.State = 1 Then conn.Close
conn.Open "provider=Microsoft.JET.OLEDB.4.0;data source=" & App.Path & " Closeorder2012 .accdb"
MsgBox " Connection complete", vbInformation, " inform connect to database"

End Sub

Private Sub Timer1_Timer()
Label1.Caption = Date
Label2.Caption = Time

End Sub