mine is a simple code:
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Combo1_Change()
Combo1.AddItem "Web Content Development", 0
Combo1.AddItem "Client and Server Side Scripting", 1
Combo1.AddItem "Network Security Configuration", 2
Combo1.AddItem "Web Server, E-Commerce Development", 3
End Sub
Private Sub Command1_Click()
End Sub
Private Sub Form_Load()
con.Open "employees", "username", "password"
rs.Execute "insert into projects(prjcode,prjname,teamsize)values(" & Val(Text1.Text) & "," & Val(Text2.Text) & "," & Val(Text3.Text) & ") ", con, adOpenDynamic, adLockBatchOptimistic
i have left command1 blank because i don't know what to write there...i want my program such that, during runtime i insert values in textbox and when i click the command button, a new column is added into the table projects

New Topic/Question
Reply



MultiQuote




|