Dim con As ADODB.Connection
Set con = New ADODB.Connection
con.Open [[Tava db]]
con.Execute "SELECT Degviela.Auto, Degviela.Datums, Degviela.litri, Degviela.Vieta, Degviela.Laiks INTO '" & Textbox1.Text. "' IN '" & Textbox2.Text & "' FROM Degviela WHERE ((Degviela.Auto=" & Textbox3.Text & ") AND (Degviela.Datums Between " & dat1.Text & " And " & dat2.text & "))"
con.Close
Sīkāku helpu par konkrētajām metodēm un piemērus skaties http://msdn.microsoft.com/
pirms 13 gadiem
500