karmand
شنبه 03 اسفند 1387, 14:31 عصر
با سلام
در اکسس پروجکت با odbc بدون اینکه به بانکی وصل شوم جستجویی برای همکاران نوشتم
Option Compare Database
Dim rst1 As ADODB.Recordset
Private Sub Command4_Click()
Dim strsql As String
Set rst1 = New ADODB.Recordset
If Me.serch_serial <> Empty Then
strsql = ("select * from kala_khanev where f01_nicpnsrl=" + Me.serch_serial + "")
rst1.Open strsql, Cnxn, adOpenKeyset, adLockOptimistic, adCmdText
Call insert_
Else
If IsNull(Me.serch_name) = False Then
strsql = ("select * from kala_khanev where F08_tSpName like '%" + Me.serch_name + "%'")
rst1.Open strsql, Cnxn, adOpenKeyset, adLockOptimistic, adCmdText
Call insert_
End If
End If
Me.serch_serial.SetFocus
End Sub
Private Sub Command66_Click()
DoCmd.SetWarnings False
If rst1.BOF = False Then
rst1.MovePrevious
Call insert_
End If
End Sub
Private Sub Command9_Click()
DoCmd.SetWarnings False
If rst1.EOF = False Then
rst1.MoveNext
Call insert_
End If
End Sub
Private Sub insert_()
'ãÑÈæØ Èå ÓÑÑÓÊ
Me.f1 = rst1!f01_nicpnsrl
Me.f8 = rst1!f08_tspname
Me.f6 = rst1!f06_tctname
Me.f7 = rst1!f07_taddress
Me.f9 = rst1!f09_tspjob
Me.f10 = rst1!f10_tspofname
Me.f11 = rst1!f11_nispoftel
Me.f12 = rst1!f12_nihtel
Me.f13 = rst1!f13_nipcode
Me.f14 = rst1!f14_nistate
'ãÑÈæØ Èå ÎÇäæÇÑ
Me.m2 = rst1!f02_tfname
Me.m3 = rst1!f03_tlname
Me.m4 = rst1!f04_tfthname
Me.m41 = rst1!sex
Me.m5_s = rst1!f05_nibirths
Me.m5_m = rst1!f05_nibirthm
Me.m5_d = rst1!f05_nibirthd
Me.m6 = rst1!f06_tshsh
Me.m7 = rst1!f07_nishserial
Me.m8 = rst1!f08_nishsery
Me.m9 = rst1!f09_tshchar
Me.m10 = rst1!f10_nimcode
Me.m11 = rst1!f11_ninesbat
Me.m12 = rst1!f12_teshtl
Me.m13 = rst1!tahsilat
'
End Sub
Option Compare Database
Public Cnxn As ADODB.Connection
Public Sub conect()
Dim strCnxn As String
strCnxn = "Provider='sqloledb';Data Source='SERVER9';Initial Catalog='kalabarg87';User ID=sdehghan;Password=13371502"
Set Cnxn = New ADODB.Connection
Cnxn.Open strCnxn
End Sub
مشکل اینجاست که برای دیدن رکورد دوم یا سوم باید کلید بعدی را بزنند
میخواهم بدانم چگونه دیتاگرید و یا سابفرم بسازم
چون نه کواری دارم
نه جدولی که بتوان ساب را به آن وصل کرد
در اکسس پروجکت با odbc بدون اینکه به بانکی وصل شوم جستجویی برای همکاران نوشتم
Option Compare Database
Dim rst1 As ADODB.Recordset
Private Sub Command4_Click()
Dim strsql As String
Set rst1 = New ADODB.Recordset
If Me.serch_serial <> Empty Then
strsql = ("select * from kala_khanev where f01_nicpnsrl=" + Me.serch_serial + "")
rst1.Open strsql, Cnxn, adOpenKeyset, adLockOptimistic, adCmdText
Call insert_
Else
If IsNull(Me.serch_name) = False Then
strsql = ("select * from kala_khanev where F08_tSpName like '%" + Me.serch_name + "%'")
rst1.Open strsql, Cnxn, adOpenKeyset, adLockOptimistic, adCmdText
Call insert_
End If
End If
Me.serch_serial.SetFocus
End Sub
Private Sub Command66_Click()
DoCmd.SetWarnings False
If rst1.BOF = False Then
rst1.MovePrevious
Call insert_
End If
End Sub
Private Sub Command9_Click()
DoCmd.SetWarnings False
If rst1.EOF = False Then
rst1.MoveNext
Call insert_
End If
End Sub
Private Sub insert_()
'ãÑÈæØ Èå ÓÑÑÓÊ
Me.f1 = rst1!f01_nicpnsrl
Me.f8 = rst1!f08_tspname
Me.f6 = rst1!f06_tctname
Me.f7 = rst1!f07_taddress
Me.f9 = rst1!f09_tspjob
Me.f10 = rst1!f10_tspofname
Me.f11 = rst1!f11_nispoftel
Me.f12 = rst1!f12_nihtel
Me.f13 = rst1!f13_nipcode
Me.f14 = rst1!f14_nistate
'ãÑÈæØ Èå ÎÇäæÇÑ
Me.m2 = rst1!f02_tfname
Me.m3 = rst1!f03_tlname
Me.m4 = rst1!f04_tfthname
Me.m41 = rst1!sex
Me.m5_s = rst1!f05_nibirths
Me.m5_m = rst1!f05_nibirthm
Me.m5_d = rst1!f05_nibirthd
Me.m6 = rst1!f06_tshsh
Me.m7 = rst1!f07_nishserial
Me.m8 = rst1!f08_nishsery
Me.m9 = rst1!f09_tshchar
Me.m10 = rst1!f10_nimcode
Me.m11 = rst1!f11_ninesbat
Me.m12 = rst1!f12_teshtl
Me.m13 = rst1!tahsilat
'
End Sub
Option Compare Database
Public Cnxn As ADODB.Connection
Public Sub conect()
Dim strCnxn As String
strCnxn = "Provider='sqloledb';Data Source='SERVER9';Initial Catalog='kalabarg87';User ID=sdehghan;Password=13371502"
Set Cnxn = New ADODB.Connection
Cnxn.Open strCnxn
End Sub
مشکل اینجاست که برای دیدن رکورد دوم یا سوم باید کلید بعدی را بزنند
میخواهم بدانم چگونه دیتاگرید و یا سابفرم بسازم
چون نه کواری دارم
نه جدولی که بتوان ساب را به آن وصل کرد