PDA

View Full Version : مشکل این کد چیه ؟



sunboy
چهارشنبه 28 خرداد 1382, 15:23 عصر
سلام
اگه شما می دونید مشکل این کد چیه به من بگید


Data1.Recordset.AddNew
If flage = False Then
flage = True
Command1.Caption = "GO !"
Dim stra As String, strd As Integer, path As String
If a.FolderExists("E:\") = True Then
If a.FolderExists("E:\Khatrat") = False Then
a.CreateFolder ("E:\Khatrat")
a.CreateTextFile ("E:\khatrat\" & Text1.Text)
End If
Dim s As String
a.CreateTextFile ("E:\khatrat\" & Text1.Text & ".rtf")

txtpath.Text = ("E:\Khatrat\" & Text1.Text & ".rtf")
txtsubject.Text = Text1.Text

Else
path = InputBox(" لطفا یک ادرس معتبر برای ذخیره خاطرات خود را بدهید", "Path")
a.CreateFolder (path)
txtpath.Text = (path)
End If
Load Form2
Form2.Show
Else

flage = False
End If


من می خوامم اعطلاعات txtpath و txtsubject بره به بانک اعطلاعاتیم ولی عمل نمی کنه

Vahid_Nasiri
چهارشنبه 28 خرداد 1382, 18:18 عصر
1- کد شما با Microsoft scripting run time مشکلی ندارد و خوب جواب می دهد
2- کد Data1.Recordset.AddNew که اول و آخر کار نیست که! باید یک چند خط دیگر هم برای ورود اطلاعات به بانک *اطلاعاتی* بنویسید!

sunboy
چهارشنبه 28 خرداد 1382, 20:10 عصر
وحید جان دستت درد نکنه
ولی اکه بیشتر توضیح بدی ممنونت می شم :D

sunboy
جمعه 30 خرداد 1382, 12:28 عصر
بابا یکی هم سوال مارو جواب بده :x

Amir Mehdi
سه شنبه 10 تیر 1382, 19:59 عصر
باید بعد از کد خود این چند خط رو اضافه کنی
data1.recordset!FieldName1=txtpath
data1.recordset!FieldName2=txtSubject
data1.recordset.update

به جای FieldName1 , FieldName2 نام فیلدهای خودت رو بنویس!!! :P

sunboy
سه شنبه 10 تیر 1382, 20:01 عصر
اقا امیر دمت گرم