sahar_82614
چهارشنبه 25 فروردین 1389, 19:04 عصر
سلام دوستان
من چند تا سوال برنامه نویسی داشتم خواهش میکنم کمکم کنید
اولا بگم که دارم یک برنامه برای ورود و خروج پرونده دربایگانی با vb6 وsql2000 می نویسم که ارتباط انها را از طریق متد adodb و توابع و اشیا ado برقرار کردم وجداول مربوطه را در دیتابیس طراحی کردم بدین صورت که همه را از نوع nvarchar و تاریخها را datetime واجازه null را از همه برداشتم حالا اولین سوالم اینه که چرا وقتی جدولم خالیه ومیخوام اطلاعات جدید را برای اولین بار به جدولم اضافه کنم روی rst.movelast ایراد میگیره وbof,eof رو میخوادو دنبال یک رکورد میگرده چجوری این مشکل را برطرف کنم؟
کد مربوط به اضافه کردن را درزیر نوشتم
Private Sub KewlButtons2_Click()
Dim result As Integer
If Text8.Text = "" Or Text9.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Then
result = MsgBox(" !لطفا اطلاعات را بطور کامل وارد کنيد ", vbOKOnly, "before add ")
Else
cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=bayegani;Data Source=sh"
rst.Open "bahar", cnn, adOpenKeyset, adLockOptimistic, adCmdTable
rst.MoveLast
rst.AddNew
rst!pno1 = Combo1.Text
Combo1.Refresh
rst!pno2 = Text1.Text
rst!Name = Text2.Text
Combo6.Refresh
rst!elat = Text3.Text
rst!date1 = Text4.Text
rst!date2 = Text5.Text
rst!comment = Val(Text10.Text)
Combo7.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
rst.Update
rst.Close
cnn.Close
Set cnn = Nothing
Set rst = Nothing
End If
end sub
این سوال اولم بود اگه حضرات عنایت کنند سوال بعدی روبگم:گیج::ناراحت:
من چند تا سوال برنامه نویسی داشتم خواهش میکنم کمکم کنید
اولا بگم که دارم یک برنامه برای ورود و خروج پرونده دربایگانی با vb6 وsql2000 می نویسم که ارتباط انها را از طریق متد adodb و توابع و اشیا ado برقرار کردم وجداول مربوطه را در دیتابیس طراحی کردم بدین صورت که همه را از نوع nvarchar و تاریخها را datetime واجازه null را از همه برداشتم حالا اولین سوالم اینه که چرا وقتی جدولم خالیه ومیخوام اطلاعات جدید را برای اولین بار به جدولم اضافه کنم روی rst.movelast ایراد میگیره وbof,eof رو میخوادو دنبال یک رکورد میگرده چجوری این مشکل را برطرف کنم؟
کد مربوط به اضافه کردن را درزیر نوشتم
Private Sub KewlButtons2_Click()
Dim result As Integer
If Text8.Text = "" Or Text9.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Then
result = MsgBox(" !لطفا اطلاعات را بطور کامل وارد کنيد ", vbOKOnly, "before add ")
Else
cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=bayegani;Data Source=sh"
rst.Open "bahar", cnn, adOpenKeyset, adLockOptimistic, adCmdTable
rst.MoveLast
rst.AddNew
rst!pno1 = Combo1.Text
Combo1.Refresh
rst!pno2 = Text1.Text
rst!Name = Text2.Text
Combo6.Refresh
rst!elat = Text3.Text
rst!date1 = Text4.Text
rst!date2 = Text5.Text
rst!comment = Val(Text10.Text)
Combo7.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
rst.Update
rst.Close
cnn.Close
Set cnn = Nothing
Set rst = Nothing
End If
end sub
این سوال اولم بود اگه حضرات عنایت کنند سوال بعدی روبگم:گیج::ناراحت: