ثبت اطلاعات [بایگانی]

thomasandy

پنج شنبه 17 بهمن 1392, 10:48 صبح

با سلام یه مشکلی دارم اینکه موقعی که نرم افزار رو اجرا میکنم هنگام ثبت نام اطلاعات وارد میکنم پیام ثبت نمایش میده ولی توی بانک هیچ اطلاعاتی ثبت نشده

siyn71

پنج شنبه 17 بهمن 1392, 22:40 عصر

سلام کدتونو بزارین ببینیم.

thomasandy

جمعه 18 بهمن 1392, 08:43 صبح

If vkTextBox9.Text = "" Then
MsgBox "نام کاربري بايد وارد شود", vbExclamation, "خطا"
Exit Sub
End If
Data1.Recordset.AddNew
Data1.Recordset.Fields("name") = vkTextBox1.Text
Data1.Recordset.Fields("famil") = vkTextBox2.Text
Data1.Recordset.Fields("db") = Format(Date, "mmm-dd-yyyy") = vkTextBox3.Text
Data1.Recordset.Fields("mobile") = vkTextBox4.Text
Data1.Recordset.Fields("account") = vkTextBox5.Text
Data1.Recordset.Fields("ds") = vkTextBox6.Text
Data1.Recordset.Fields("add") = vkTextBox7.Text
Data1.Recordset.Fields("password") = vkTextBox8.Text
Data1.Recordset.Fields("username") = vkTextBox9.Text
Image1.Picture = LoadPicture()
Data1.Recordset.AddNew
Image1.Picture = LoadPicture()
Data1.Recordset.Update
Data1.Refresh

MsgBox "کاربر اظافه گرديد", vbInformation, "کاربر جديد"
vkTextBox1.Text = ""
vkTextBox2.Text = ""
vkTextBox3.Text = ""
vkTextBox4.Text = ""
vkTextBox5.Text = ""
vkTextBox6.Text = ""
vkTextBox7.Text = ""
vkTextBox8.Text = ""
vkTextBox9.Text = ""

Is Null

جمعه 18 بهمن 1392, 23:18 عصر

If vkTextBox9.Text = "" Then
MsgBox "نام کاربري بايد وارد شود", vbExclamation, "خطا"
Exit Sub
End If
Data1.Recordset.AddNew
Data1.Recordset.Fields("name") = vkTextBox1.Text
Data1.Recordset.Fields("famil") = vkTextBox2.Text
Data1.Recordset.Fields("db") = Format(Date, "mmm-dd-yyyy") = vkTextBox3.Text
Data1.Recordset.Fields("mobile") = vkTextBox4.Text
Data1.Recordset.Fields("account") = vkTextBox5.Text
Data1.Recordset.Fields("ds") = vkTextBox6.Text
Data1.Recordset.Fields("add") = vkTextBox7.Text
Data1.Recordset.Fields("password") = vkTextBox8.Text
Data1.Recordset.Fields("username") = vkTextBox9.Text
Image1.Picture = LoadPicture()
Data1.Recordset.AddNew
Image1.Picture = LoadPicture()
Data1.Recordset.Update
Data1.Refresh

بعد از پر کردن فیلدها با مقدار هر تکست باکس، دستور .Update و .Refresh رو تکرار کنید.
Image1.Picture = LoadPicture()
Data1.Recordset.AddNew
Image1.Picture = LoadPicture()
فکر میکنم این دستور نباید اینجا تکرار بشه !

Data1.Recordset.AddNew
Data1.Recordset.Fields("name") = vkTextBox1.Text
Data1.Recordset.Fields("famil") = vkTextBox2.Text
Data1.Recordset.Update
Data1.Refresh