Connecting to an ODBC / SQl Server Source
Posted in:
VB6 / VBA
By dePoPo
Mar 9, 2009 - 3:33:48 PM
' [ ADO Data Control ]
' -------------------------
Form1!Adodc1.ConnectionString = "DSN=KTools"
Form1!Adodc1.CommandType = adCmdText
Form1!Adodc1.RecordSource = "SELECT * FROM ktoolsBackorders ORDER BY " & s_sortorder & " ASC"
Form1!Adodc1.Refresh
' [ Direct Connect ]
' ----------------------
Set dbs = OpenDatabase("", False, False, "ODBC;DSN=KTools")
Set rst = dbs.OpenRecordset("SELECT * FROM ktoolsBackorders", dbOpenDynaset, dbSeeChanges)
' [ Execute SQl cmd on a direct connection ]
' ----------------------------------------------------
dbs.Execute "DELETE * FROM kinkoopContainerbuffer", dbSeeChanges
Visitor Comments