mahmoodreza
جمعه 27 شهریور 1383, 00:21 صبح
من از این دستور استفاده میکنم ولی فقط یکبار فرم منو جلو میبره و دیگه نمیبره
میخواستم یک نگاه به کد من بندازید
Private Sub btnNext_Click()
Dim cnnNorthwind As New Connection
Dim rsCustomers As Recordset
cnnNorthwind.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=e:/projects/telefonbuch/telefon.mdb"
'Create recordset reference and set its properties.
Set rsCustomers = New ADODB.Recordset
rsCustomers.CursorType = adOpenKeyset
rsCustomers.LockType = adLockOptimistic
'Open recordset and print a test record.
rsCustomers.Open "telefon", cnnNorthwind, , , adCmdTable
If rsCustomers.EOF = False Then
rsCustomers.MoveNext
txtname.Text = rsCustomers.Fields("Name").Value
txtvname.Text = rsCustomers.Fields("Vorname").Value
txttel.Text = rsCustomers.Fields("tel").Value
txtfax.Text = rsCustomers.Fields("fax").Value
txtadd.Text = rsCustomers.Fields("add").Value
Else
MsgBox ("You are at the end")
End If
MsgBox (rsCustomers.Fields("Name").Value)
rsCustomers.Close
End Sub
و یک سوال
ایا این روش درسته که من هر دفعه یک کانکشن باز میکنم و میبندم و هر دفعه باید تعریف کنم ؟؟
میخواستم یک نگاه به کد من بندازید
Private Sub btnNext_Click()
Dim cnnNorthwind As New Connection
Dim rsCustomers As Recordset
cnnNorthwind.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=e:/projects/telefonbuch/telefon.mdb"
'Create recordset reference and set its properties.
Set rsCustomers = New ADODB.Recordset
rsCustomers.CursorType = adOpenKeyset
rsCustomers.LockType = adLockOptimistic
'Open recordset and print a test record.
rsCustomers.Open "telefon", cnnNorthwind, , , adCmdTable
If rsCustomers.EOF = False Then
rsCustomers.MoveNext
txtname.Text = rsCustomers.Fields("Name").Value
txtvname.Text = rsCustomers.Fields("Vorname").Value
txttel.Text = rsCustomers.Fields("tel").Value
txtfax.Text = rsCustomers.Fields("fax").Value
txtadd.Text = rsCustomers.Fields("add").Value
Else
MsgBox ("You are at the end")
End If
MsgBox (rsCustomers.Fields("Name").Value)
rsCustomers.Close
End Sub
و یک سوال
ایا این روش درسته که من هر دفعه یک کانکشن باز میکنم و میبندم و هر دفعه باید تعریف کنم ؟؟