Arkadaşlar alttaki kodla herhangi bir tabloyu yada sql i açabiliyorum ama arada bir hata veriyor.dsn kullanmadan direkt nasıl kaydı alabilirim.başka yol varmı.teşekkürler...
'module bu kodları yazdım herhangi bir metin kutusunun denetim kaynağına
'=cikanurunsay_bul([malzeme_id]) yazın malzeme_id formun ustundeki
' malzeme_id edit kutusu
Function cikanurunsay_bul(urunno)
If urunno <> "" Then
Dim baglanti As New ADODB.Connection
Dim kay_set As New ADODB.Recordset
Dim sql As String
sql = "SELECT Sum(alisveris.adet) AS [Toplam] " & _
"FROM alisveris " & _
"WHERE (((alisveris.malzeme_no)=" & urunno & "));"
baglanti.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Tuncay\vt1.mdb;"
'baglanti.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=E:\tuncay\vt1.mdb;"
kay_set.Open sql, "DSN=conn" 'burada odbc den dsn tanımla
'kay_set.Open sql, "baglanti", adOpenKeyset, adLockReadOnly, -1
'bu şekilde açmaya çalıştığımda hata veriyor ?
cıkanurunsay = kay_set.Fields("toplam")
kay_set.Close
Set kay_set = Nothing
Set baglanti = Nothing
End If
End Function
'module bu kodları yazdım herhangi bir metin kutusunun denetim kaynağına
'=cikanurunsay_bul([malzeme_id]) yazın malzeme_id formun ustundeki
' malzeme_id edit kutusu
Function cikanurunsay_bul(urunno)
If urunno <> "" Then
Dim baglanti As New ADODB.Connection
Dim kay_set As New ADODB.Recordset
Dim sql As String
sql = "SELECT Sum(alisveris.adet) AS [Toplam] " & _
"FROM alisveris " & _
"WHERE (((alisveris.malzeme_no)=" & urunno & "));"
baglanti.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Tuncay\vt1.mdb;"
'baglanti.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=E:\tuncay\vt1.mdb;"
kay_set.Open sql, "DSN=conn" 'burada odbc den dsn tanımla
'kay_set.Open sql, "baglanti", adOpenKeyset, adLockReadOnly, -1
'bu şekilde açmaya çalıştığımda hata veriyor ?
cıkanurunsay = kay_set.Fields("toplam")
kay_set.Close
Set kay_set = Nothing
Set baglanti = Nothing
End If
End Function