From dePoPo.net

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