Dim load As SearchFromTable = New SearchFromTable Dim xcommad As OleDb.OleDbCommand = load.xCommand Dim xQry As String = "insert into TBLCLASS (CODE,CNAME,CSEC) Values (@CODE,@CNAME,@CSEC)" Try With fObjects.CommandObject(xQry, fObjects.ConnectionObject) .Parameters.Add(New OleDb.OleDbParameter("@CODE", OleDb.OleDbType.VarChar, 250)).Value = Me.MTextbox1.Text .Parameters.Add(New OleDb.OleDbParameter("@CNAME", OleDb.OleDbType.VarChar, 250)).Value = Me.MTextbox2.Text .Parameters.Add(New OleDb.OleDbParameter("@CSEC", OleDb.OleDbType.VarChar, 250)).Value = Me.MCombobox1.Text load.GetMyData(xQry) End With Catch ex As Exception MsgBox("Failed because: " & ex.Message) End Try
"@"
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)