Excel Vba Проблемы с удалением строк из базы данных MySQL

Question

Excel Vba Проблемы с удалением строк из базы данных MySQL

0

Привет, Я пытаюсь удалить все строки в базе данных mysql, используя vba в excel. Я пробовал много кодов сейчас, и ближайший я получаю, это следующий код, но я все еще получаю синтаксическую ошибку в:

rsmysql.Open rsstr, coninc

Может кто-то помочь мне исправить код, так что я могу заставить его работать, пожалуйста.

Dim rsmysql As ADODB.Recordset 'Holds records
Dim rsstr As String
Dim coninc As String
Set cnmysql = New ADODB.Connection
Set rsmysql = New ADODB.Recordset


coninc = "Driver={MySQL ODBC 5.3 ANSI Driver};Server=" & _
          Server_Name & ";Database=" & Database_Name & _
          ";Uid=" & User_ID & ";Pwd=" & Password & ";"

rsstr = "delete * from TLHMember_List;"
cnmysql.Open coninc
rsmysql.Open rsstr, coninc
MsgBox "Data has been deleted"


   Exit Sub

Lasse Anker 21 май 2018, в 02:28

Источник

0

cnmysql.Execute rsstr - вам не нужен набор записей для этого.
Tim Williams 20 май 2018, в 23:55
0

Привет, Тим. Спасибо за помощь. Можете ли вы попытаться опубликовать его как полный код, потому что я пытался, как вы сказали, все еще получаю ту же ошибку. Мне нужно сначала открыть соединение, поэтому я cnmysql.Open coninc после чего я использую cnmysql.Execute rsstr вместо rsmysql.Open rsstr, coninc of, но это все равно rsmysql.Open rsstr, coninc синтаксическую ошибку. Если я не открываюсь первым с помощью cnmysql.Open coninc я получаю сообщение об ошибке, в котором говорится, что сначала нужно открыть соединение
Lasse Anker 21 май 2018, в 00:01
0

cnmysql.Execute "delete from TLHMember_List" Jusr delete from не delete * from
Tim Williams 21 май 2018, в 00:07
0

это работает как шарм :) вы можете опубликовать его в качестве ответа. И спасибо за помощь :)
Lasse Anker 21 май 2018, в 00:14

Показать ещё 2 комментария

Теги:

mysql

vba

excel-vba

excel

1 ответ

Ещё вопросы

cnmysql.Execute rsstr - вам не нужен набор записей для этого.
Привет, Тим. Спасибо за помощь. Можете ли вы попытаться опубликовать его как полный код, потому что я пытался, как вы сказали, все еще получаю ту же ошибку. Мне нужно сначала открыть соединение, поэтому я cnmysql.Open coninc после чего я использую cnmysql.Execute rsstr вместо rsmysql.Open rsstr, coninc of, но это все равно rsmysql.Open rsstr, coninc синтаксическую ошибку. Если я не открываюсь первым с помощью cnmysql.Open coninc я получаю сообщение об ошибке, в котором говорится, что сначала нужно открыть соединение
cnmysql.Execute "delete from TLHMember_List" Jusr delete from не delete * from
это работает как шарм :) вы можете опубликовать его в качестве ответа. И спасибо за помощь :)

Tim Williams · Accepted Answer · 2018-05-20T21-10-00.000Z

rsstr = "delete from TLHMember_List"
cnmysql.Open coninc
cnmysql.Execute rsstr 
MsgBox "Data has been deleted"