vb queries

[yosh29rs]

please help me over my project. . .
how to create a program using adodc.as in the case of a library searching and saving accounts. . .
thanks. . .

[lotus18]

please help me over my project. . .
how to create a program using adodc.as in the case of a library searching and saving accounts. . .
thanks. . .

We are not doing assignments/homeworks here. Attempt to create that program and if you have some problems that's the time we can help you. Please observe posting guidelines : )

[Killer42]

Sorry yosh29rs, but TheScripts is strictly English-only. I've deleted your post.

[yosh29rs]

We are not doing assignments/homeworks here. Attempt to create that program and if you have some problems that's the time we can help you. Please observe posting guidelines : )

please help me over the codings.. . . i really need it asap. . .really badly. . .thanks

[debasisdas]

please help me over the codings.. . . i really need it asap. . .really badly. . .thanks

Can you kindly post what you have tried sofar .

[lotus18]

please help me over the codings.. . . i really need it asap. . .really badly. . .thanks

OK, I'll try. Just post some of your codes here : )

[yosh29rs]

these are what ive tried.some of the codes doesnt work.thanks for the help

Private Sub cmdClr_Click()
txtFname = ""
txtLname = ""
txtMname = ""
txtAddC = ""
txtAddZ = ""
txtAddB = ""
txtDate = ""
txtId = ""
txtDatebirth = ""
End Sub
 
Private Sub cmdSave_Click()
Adodc1.Recordset.AddNew
 
'let the  fields of the database table hold the value on your textboxes
AdoNew.Recordset.Fields("fname") = txtFname.Text
AdoNew.Recordset.Fields("lname") = txtLname.Text
AdoNew.Recordset.Fields("mname") = txtMname.Text
AdoNew.Recordset.Fields("addb") = txtAddC.Text
AdoNew.Recordset.Fields("addz") = txtAddZ.Text
AdoNew.Recordset.Fields("addc") = txtAddB.Text
AdoNew.Recordset.Fields("date1") = txtDate.Value
AdoNew.Recordset.Fields("id") = txtId.Text
AdoNew.Recordset.Fields("datebirth") = txtDatebirth.Value
'Save the record on the database table
AdoNew.Recordset.Update
 
'Inform the user
MsgBox "Add New Successful!", vbInformation, "SUCCESSFUL"
 
End Sub
 
Private Sub Command4_Click()
Unload Me
End Sub
 
End Sub
 
Private Sub cmdSaveAdd_Click()
Adodc1.Recordset.AddNew
 
'let the  fields of the database table hold the value on your textboxes
AdoNew.Recordset.Fields("fname") = txtFname.Text
AdoNew.Recordset.Fields("lname") = txtLname.Text
AdoNew.Recordset.Fields("mname") = txtMname.Text
AdoNew.Recordset.Fields("addb") = txtAddC.Text
AdoNew.Recordset.Fields("addz") = txtAddZ.Text
AdoNew.Recordset.Fields("addc") = txtAddB.Text
AdoNew.Recordset.Fields("date1") = txtDate.Text
AdoNew.Recordset.Fields("id") = txtId.Text
AdoNew.Recordset.Fields("datebirth") = txtDatebirth.Text
'Save the record on the database table
AdoNew.Recordset.Update
 
'Inform the user
MsgBox "Add New Successful!", vbInformation, "SUCCESSFUL"
txtFname.Text = ""
txtLname.Text = ""
txtMname.Text = ""
txtAddC.Text = ""
txtAddZ.Text = ""
txtAddB.Text = ""
txtDate.Text = ""
txtId.Text = ""
txtDatebirth.Text = ""
 
 
End Sub

[lotus18]

 
Private Sub cmdClr_Click()
   Dim ctrl As Control
   For Each ctrl In Me
        If TypeOf ctrl Is TextBox Then
           ctrl.Text=""
         End If
   Next
End Sub
 
Private Sub cmdSave_Click()
Adodc1.Recordset.AddNew
 
'let the  fields of the database table hold the value on your textboxes
AdoNew.Recordset.Fields("id") = txtId.Text
AdoNew.Recordset.Fields("fname") = txtFname.Text
AdoNew.Recordset.Fields("lname") = txtLname.Text
AdoNew.Recordset.Fields("mname") = txtMname.Text
AdoNew.Recordset.Fields("addb") = txtAddC.Text
AdoNew.Recordset.Fields("addz") = txtAddZ.Text
AdoNew.Recordset.Fields("addc") = txtAddB.Text
AdoNew.Recordset.Fields("date1") = txtDate.Text '<<<What's the format of your Date?
AdoNew.Recordset.Fields("datebirth") = txtDatebirth.Text '<<<What's the format of your Date?
'Save the record on the database table
AdoNew.Recordset.Update
 
'Inform the user
MsgBox "Add New Successful!", vbInformation, "SUCCESSFUL"
 
End Sub
 
Private Sub Command4_Click()
    Unload Me 'Exit Form
End Sub
 

Rey Sean

I think for getting the date values it is better to use maskededit box, or datepicker : )

[yosh29rs]

thank you for your kind and concern reply lotus. . .id like also to hear from our experts but it seems that their pretty bush huh

[Killer42]

There's something I don't understand about this code. Shouldn't Adodc1 and AdoNew actually refer to the same thing?

[lotus18]

There's something I don't understand about this code. Shouldn't Adodc1 and AdoNew actually refer to the same thing?

Oh sorry for that, it should be AdoNew : )

[Killer42]

Oh sorry for that, it should be AdoNew : )

Could this be the source of some problem?

[lotus18]

I think so : ) .

[yosh29rs]

our instructor was so mean about the system i made. . .i really dont understan her. . .how cn i improve my programing language?

[Killer42]

our instructor was so mean about the system i made. . .i really dont understan her. . .how cn i improve my programing language?

Well, one of the most important things in programming is that you must pay attention to the details. For instance, a quick glance at this post shows very sloppy use of English - are you even aware of it. A bit of precision might help. Is your programming as rough as this? The tiniest typo or wrong variable name can have big consequences - for example, see the bug I pointed out in post #10.

Also, consider the specific criticisms provided by your instructor. And finally, try tracking down a book or two on things like programming style. I don't think there's any simple way we can tell you how to program "better".

[yosh29rs]

Well, one of the most important things in programming is that you must pay attention to the details. For instance, a quick glance at this post shows very sloppy use of English - are you even aware of it. A bit of precision might help. Is your programming as rough as this? The tiniest typo or wrong variable name can have big consequences - for example, see the bug I pointed out in post #10.

Also, consider the specific criticisms provided by your instructor. And finally, try tracking down a book or two on things like programming style. I don't think there's any simple way we can tell you how to program "better".

oh, is that so? well we filipinos really write things in shortcut manners. . .because we are so frugal on spending stuffs. . .
is it not okay?just because you dont get it?
maybe a visit here in the pjil will explain things much better. . .

[Killer42]

oh, is that so? well we filipinos really write things in shortcut manners. . .because we are so frugal on spending stuffs. . .
is it not okay?just because you dont get it?
maybe a visit here in the pjil will explain things much better. . .

Two questions...

• How does dropping letters out of words constitute being "frugal"? (An extra letter costs you more, does it?)
• What does pjil mean?

[lotus18]

Two questions...

• How does dropping letters out of words constitute being "frugal"? (An extra letter costs you more, does it?)
• What does pjil mean?

I think he's referring Pjil. to Phils. (Philippines)