❓ Help Visual basic 6.0 database

[jaytots921]

mga boss baka my makatulong skin dyan about sa pag insert ng data sa database using visual basic ano po bang problema dto sa code ko? lumalabas kasi is type mismatch
pag ng add ako dun s database ko sana mtulungan nyo ko mga lods
[CODE title="visual basic 6.0 access database"]If rec.State = 1 Then rec.Close
rec.Open "Insert into ClientTBL values('" + txtclient.Text + "','" + txtfirstname.Text + "','" + txtlastname.Text + "','" + txtage.Text + "','" + DTPicker1.Value + "','" + Option1.Value + "','" + Option2.Value + "','" + txtadd.Text + "','" + txtphone.Text + "','" + txtemail.Text + "','" + Image1.Picture + "')", con, 3, 2[/CODE]

 

[nivr4m]

Pa lagay ng full code mo lalo yung con. Tip: use yung code sa paglagay ng code para malinaw sa mata

 

[jaytots921]

[CODE title="visual basic 6.0 access database" highlight="1,2,3"]If rec.State = 1 Then rec.Close
rec.Open "Insert into ClientTBL values('" + txtclient.Text + "','" + txtfirstname.Text + "','" + txtlastname.Text + "','" + txtage.Text + "','" + DTPicker1.Value + "','" + Option1.Value + "','" + Option2.Value + "','" + txtadd.Text + "','" + txtphone.Text + "','" + txtemail.Text + "','" + Image1.Picture + "')", con, 3, 2
MsgBox "Record Successfully Added", vbOKOnly + vbInformation, "Message"



Sub display()

txtclient.Text = rs!ClientNo
txtfirstname.Text = rs!FirstName
txtlastname.Text = rs!LastName
txtage.Text = rs!Age
DTPicker1.Value = rs!DOB
If rs!Gender = "Male" Then
Option1.Value = True
Else
Option2.Value = True
End If
txtadd.Text = rs!Address
txtphone.Text = rs!Phone
txtemail.Text = rs!Email
Image1.Picture = LoadPicture(rs!Photo)


End Sub

ng tatapye mismatch po sya pano po to i insert as values ung dtpicker? options ng gender tas ung image image po ginamit ko dyan di picture kasi d n sstretch ung picture maraming salamat sana matulungan nyo ko mga boss[/CODE]

 

[jaytots921]

Pa lagay ng full code mo lalo yung con. Tip: use yung code sa paglagay ng code para malinaw sa mata

View attachment 1413108

 

[nivr4m]

I am sorry, way back highschool pa yung VB6 ko. hehehe

pero anyways I assume you are inserting data to SQL.

Try mo muna palitan yung Image1.Picture into "none" if mag error pa ba. If hindi nag error Change mo yung Image1.Picture as image location nya something

App.Path & "\pic1.jpg"

Try if this works, try mo check if ang column header sa SQL table mo is same size:

Client	first_name	last_name	age	DOB	male	female	address	phone	email	image

anyways yung "','" + Option1.Value + "','" + Option2.Value mo should be Gender sa table mo and not male or female?

 

[jaytots921]

ay di po ako gumamit ng table sa vsiaul basic hehe gnato lng po gsto ko sna itsura nya pg dinisplay pra m view ng maayus ung design ng mg papatattoo para po kasi sa shop ng mga tattoo artist yan hehe

I am sorry, way back highschool pa yung VB6 ko. hehehe

pero anyways I assume you are inserting data to SQL.

Try mo muna palitan yung Image1.Picture into "none" if mag error pa ba. If hindi nag error Change mo yung Image1.Picture as image location nya something

App.Path & "\pic1.jpg"

Try if this works, try mo check if ang column header sa SQL table mo is same size:

Client	first_name	last_name	age	DOB	male	female	address	phone	email	image

anyways yung "','" + Option1.Value + "','" + Option2.Value mo should be Gender sa table mo and not male or female?

 

[jaytots921]

maraming salamat po sa tulong

 

[nivr4m]

Saan mo pala I-insert yung details? rec.Open "Insert into ClientTBL values('................. I-save mo ba yung details after nila mag submit? Saan ba i-sasave?

 

[jaytots921]

dun po sa access database tas clientTBL name nya bali dun po lahat mg sisync lahat ng iinsert ko sana dyan boss
when i click save hehe

 

[nivr4m]

yes boss tawag nating sa clientTBL is table. If may access ka sa clientTBL pa screenshot kung ano yung column headers nya. or pa check if yung order ng headers is

ClientNo

FirstName

LastName

Age

DOB

Gender

Address

Phone

Email

Photo

 

[nivr4m]

Set mo muna yung Gender value the Insert mo yung values defining the table columns

If Option1.Value = True Then
Gender = "Male"
Else
Gender = "Female"
End If


rec.Open "Insert into ClientTBL(ClientNo,FirstName,LastName,Age,DOB,Gender,Address,Phone,Email,Photo) values('" + txtclient.Text + "','" + txtfirstname.Text + "','" + txtlastname.Text + "','" + txtage.Text + "','" + DTPicker1.Value + "','" + Gender + "','" + txtadd.Text + "','" + txtphone.Text + "','" + txtemail.Text + "','" + Image1.Picture + "')", con, 3, 2

 

[jaytots921]

opo gnyan po nalabas pag ginamitan ko ng adodc at flexgrid ang prob ko po sir s pag insert nya di ko alam ilalatag sa sentence pa my options at image

 

[jaytots921]

[XX='nivr4m, c: 1160558, m: 936870'][/XX] pano po ? hehe

 

[nivr4m]

[XX='jaytots921, c: 1160570, m: 612367'][/XX]

If rec.State = 1 Then rec.Close
If Option1.Value = True Then
Gender = "Male"
Else
Gender = "Female"
End If
rec.Open "Insert into ClientTBL(ClientNo,FirstName,LastName,Age,DOB,Gender,Address,Phone,Email,Photo) values('" + txtclient.Text + "','" + txtfirstname.Text + "','" + txtlastname.Text + "','" + txtage.Text + "','" + DTPicker1.Value + "','" + Gender + "','" + txtadd.Text + "','" + txtphone.Text + "','" + txtemail.Text + "','" + Image1.Picture + "')", con, 3, 2
MsgBox "Record Successfully Added", vbOKOnly + vbInformation, "Message"



Sub display()

txtclient.Text = rs!ClientNo
txtfirstname.Text = rs!FirstName
txtlastname.Text = rs!LastName
txtage.Text = rs!Age
DTPicker1.Value = rs!DOB
If rs!Gender = "Male" Then
Option1.Value = True
Else
Option2.Value = True
End If
txtadd.Text = rs!Address
txtphone.Text = rs!Phone
txtemail.Text = rs!Email
Image1.Picture = LoadPicture(rs!Photo)


End Sub

 

[jaytots921]

[XX='nivr4m, c: 1160583, m: 936870'][/XX] oks n po yan boss? naga ?

 

[nivr4m]

try nyo muna. feedback ka kung okay na. Hindi ko ma full debug kasi hindi buong code nabigay mo and wala ako vb6 installed sa pc ko.

 

[jaytots921]

ayaw parin boss sige boss latag ko lahat sa totoo lng yan pina dedebug ko boss is for archive wala ko mahanap n ibang way kung pano i add s delete code ang archive n pag mag dedelete ka is papasok sa isa kong table ng ClientArchiveTBL at mg dedelete dun sa mismong clientTBL

 

[nivr4m]

pa screenshot ng error. Additionaly, nakakaconnect ka ba sa access?

 

[jaytots921]

nagawa ko po kasi yan dun s login user management ko ok naman n pg delete ko dun sa table main ppnta dun sa archive using insert values after nya mag delete dun mismo sa table but when i use it dun s main filemanagement ko which is my image and dtpicker at options ayaw type mismatch di ko alam ilatag s sentence ung dtpicker options at image

 

[jaytots921]

[XX='nivr4m, c: 1160658, m: 936870'][/XX] opo