Note that there are some explanatory texts on larger screens.

plurals
  1. POHow to show text in combo box but referencing id field?
    primarykey
    data
    text
    <p>I wrote code for insert into and update table student_record_database having many foreign keys of other tables. </p> <p>While running this code it is not accepting text data selected from combo box and giving error invalid number,integrity constraint,and DTpicker also not accepting given date though I have set custom format.</p> <p>Here's my code below.I am having problem to show text in combo box.</p> <pre><code>&lt;code&gt; Private Sub save_Click() If Val(COMBO4) = 0 Then SQL = "INSERT INTO STUDENT_RECORD_DATABASE(ROLLNO,FIRST_NAME,MIDDLE_NAME,LAST_NAME,CONTACT,CONTACT1,CONTACT2,ADDRESS,GRADE,DIVID,BLOOD_GROUP,HID,DATE_OF_BIRTH,TRANSPORT,SNAME,MEAL,BUSNO,RUTNO,DID,AID,CARD_TYPE,CARD_NO)" SQL = SQL + "VALUES(" &amp; Val(COMBO4) &amp; ",'" &amp; Trim(Text2) &amp; "', '" &amp; Trim(Text3) &amp; "', '" &amp; Trim(Text4) &amp; "', " &amp; Val(Text5) &amp; ", " &amp; Val(Text6) &amp; ", " &amp; Val(Text7) &amp; ", '" &amp; Trim(Text8) &amp; "', '" &amp; Trim(Combo1) &amp; "','" &amp; Val(Combo2) &amp; "'," SQL = SQL + " '" &amp; Trim(Combo3) &amp; "' ,'" &amp; Val(Combo9) &amp; "','" &amp; DTPicker1.Value &amp; "'," SQL = SQL + " '" &amp; Trim(Combo10) &amp; "' ,'" &amp; Combo5.Text &amp; "' ,'" &amp; Trim(Combo11) &amp; "' ,'" &amp; Combo6.Text &amp; "' ,'" &amp; Val(Combo12) &amp; "' ,'" &amp; Val(Combo7) &amp; "','" &amp; Val(Combo8) &amp; "'," SQL = SQL + " '" &amp; Trim(Combo13) &amp; "' ," &amp; Text11.Text &amp; " ) " Set RES = CON.Execute(SQL) MsgBox ("RECORD INSERTED") Else SQL = "UPDATE STUDENT_RECORD_DATABASE SET " SQL = SQL + "ROLLNO= " &amp; Val(COMBO4) &amp; "," SQL = SQL + "FIRST_NAME= '" &amp; Trim(Text2) &amp; "'," SQL = SQL + "MIDDLE_NAME= '" &amp; Trim(Text3) &amp; "'," SQL = SQL + "LAST_NAME= '" &amp; Trim(Text4) &amp; "'," SQL = SQL + "CONTACT=" &amp; Val(Text5) &amp; "," SQL = SQL + "CONTACT1=" &amp; Val(Text6) &amp; "," SQL = SQL + "CONTACT2=" &amp; Val(Text7) &amp; "," SQL = SQL + "ADDRESS= '" &amp; Trim(Text8) &amp; "'," SQL = SQL + "GRADE='" &amp; Trim(Combo1) &amp; "'," SQL = SQL + "DIVID='" &amp; Val(Combo2) &amp; "'," SQL = SQL + "BLOOD_GROUP='" &amp; Trim(Combo3) &amp; "'," SQL = SQL + "HID='" &amp; Val(Combo9) &amp; "'," SQL = SQL + "DATE_OF_BIRTH=(' " &amp; DateValue(DTPicker1.Value) &amp; " ' )," SQL = SQL + "TRANSPORT='" &amp; Trim(Combo10) &amp; "'," SQL = SQL + "SNAME='" &amp; Trim(Combo5) &amp; "'," SQL = SQL + "MEAL='" &amp; Trim(Combo11) &amp; "'," SQL = SQL + "BUSNO='" &amp; Trim(Combo6) &amp; "'," SQL = SQL + "RUTNO=" &amp; Val(Combo12) &amp; "," SQL = SQL + "DID='" &amp; Val(Combo7) &amp; "'," SQL = SQL + "AID='" &amp; Val(Combo8) &amp; "'," SQL = SQL + "CARD_TYPE='" &amp; Trim(Combo13) &amp; "'," SQL = SQL + "CARD_NO=" &amp; Val(Text11) &amp; "" SQL = SQL + "WHERE ROLLNO= " &amp; Val(COMBO4) &amp; "" MsgBox ("RECORD UPDATED") End If End Sub &lt;/code&gt; Error occurred is invalid month,integrity constraint-parent key not found,invalid number. </code></pre>
    singulars
    1. This table or related slice is empty.
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
 

Querying!

 
Guidance

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload