Пример

Dim connectionString As String Dim strs As String

strs = "Insert into Магазин (название,адрес,контакт,телефон) values (@param1,@param2,@param3,@param4)"

connectionString = “…."

Dim testCon As OleDbConnection = New OleDbConnection(connectionString)

Dim testCommand As New OleDbCommand(strs, testCon) testCon.Open()

testCommand.Parameters.Add("@param1", OleDbType.Char, 15) testCommand.Parameters("@Param1").Value = TextBox1.Text

testCommand.Parameters.Add("@param2", OleDbType.Char, 15) testCommand.Parameters("@Param2").Value = TextBox2.Text

testCommand.Parameters.Add("@param3", OleDbType.Char, 15) testCommand.Parameters("@Param3").Value = TextBox3.Text

testCommand.Parameters.Add("@param4", OleDbType.Char, 9) testCommand.Parameters("@Param4").Value = TextBox4.Text

MsgBox("Command String:" & testCommand.CommandText())

' Выполнение команды testCommand.ExecuteNonQuery() testCon.Dispose()

…..

strs = "Select @MyParam = count(*) from Магазин"

…..

Dim testCommand As New OleDbCommand(strs, testCon) testCon.Open()

'Создание параметров и указание его значения testCommand.Parameters.Add("@Myparam", OleDbType.BigInt)

testCommand.Parameters("@MyParam").Direction = ParameterDirection.Output

testCommand.ExecuteScalar()

TextBox5.Text = CStr(testCommand.Parameters("@MyParam").Value)

testCon.Dispose()

<<< < Предыдущая 1 2 3 4 56 / 66

Соседние файлы в папке ПРОГ_ИНЖ