- Katılım
- 20 Aralık 2006
- Mesajlar
- 939
- Excel Vers. ve Dili
- türkçe
Kod:
INSERT INTO SAT1
SELECT SATIŞS.*
FROM SATIŞS;
yukardaki kodları vb6da nasıl çalıştırabilirim
işlemi yaptığımda kopyalamyı tetikleyecek nedir
saygılar
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
INSERT INTO SAT1
SELECT SATIŞS.*
FROM SATIŞS;
Private Sub cmdsearch_Click()
Dim adoconnection As ADODB.Connection
Dim adorecordset As ADODB.Recordset
Dim connectstring As String
Dim sql As Variant
Set adoconnection = New ADODB.Connection
Set adorecordset = New ADODB.Recordset
connectstring = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\db1.mdb"
adoconnection.Open connectstring
adoconnection.[COLOR=#0000bb]Execute [/COLOR][COLOR=#dd0000]"INSERT INTO SAT1 SATIŞS.* FROM SATIŞS"[/COLOR]
adoconnection.Close
Set adorecordset = Nothing
Set adoconnection = Nothing
End Sub