Вот тут я подключаюсь к базе MyDB на удаленном сервере, это работает, но при выполнении команды на заполнение таблици MEMB_INFO то вылетает ошибка что ему не нравиться двоеточие в :vcustid, но :vcustid это переменная-счетчик которая мне нужна, помогите как решить всю эту проблему
Dim DBTableName As String = "MEMB_INFO"
Dim cn As New OleDb.OleDbConnection("Data Source=ИП_СКРЫТ,1433;Provider=SQLOLEDB;Initial Catalog=MyDB;User ID=sa;Password=ПАРОЛЬ_СКРЫТ;")
Dim cmd As New OleDb.OleDbCommand("INSERT INTO MEMB_INFO (memb_guid, memb___id, memb__pwd, memb_name, sno__numb, mail_addr, mail_chek, bloc_code, ctl1_code, vip_free, member, ZY, jf, rcb, vip, Expired, sms_t, last_ip, last_s, bloc_date, SCFIsVip, SCFVipMoney, SCFVipDays, SCFWareVipCount)" & vbNewLine & "VALUES (:vcustid, '" & TextBox2.Text & "', '" & TextBox3.Text & "', 'TMT', '123456789012345678', '" & TextBox5.Text & "@" & TextBox6.Text & "', '0', '0', '1', '0', '0', '0', '0', '0', '0', '" & DateString & " " & TimeOfDay & "', '0', '0', '0', '" & DateString & " " & TimeOfDay & "', '0', '0', '0', '0');", cn)
Dim da As New OleDb.OleDbDataAdapter(cmd)
Dim tbl As New DataTable
da.Fill(tbl)
tbl.Dispose()
da.Dispose()
cmd.Dispose()
cn.Dispose()
p.s. В SQL новичек, есть книга по SQL, но она мне пока-что помогла только написать команду обновления данных =)
p.p.s. У меня VB 2008 Express
Ответить
|