Как я могу проверить, что оператор SQL успешно выполнен в VB6
У меня есть эти коды
Call Connection
Dim SQLInsert As String
SQLInsert = "INSERT INTO `Admin` (" & _
"`kode`," & _
"`nama`," & _
"`password`," & _
"`level`" & _
") VALUES (" & _
"'" & Text1.Text & "', " & _
"'" & Text2.Text & "', " & _
"'" & Text3.Text & "', " & _
"'" & Combo1.Text & "'" & _
")"
conn.Execute SQLInsert
MsgBox "Insert Succeed"Как я могу получить возвращенное значение из выполнения оператора выше, независимо от того, код успешно или нет …
Я хочу получить возвращаемое значение, как в PHP
<?php
$result = mysqli_query($link, $sql);
if ($result)
//executing other code
Как я могу сделать это в VB6? Спасибо
Решение
Должна существовать возможность вернуть значение «обработанных строк». Пожалуйста, прочитайте эту ссылку Microsoft:
https://msdn.microsoft.com/en-us/library/ms681559(v=vs.85).aspx
Вам нужно будет добавить опцию «adExecuteNoRecords», глава «Замечания»
Другие решения
Читайте о ОШИБКА заявление. Это позволяет обрабатывать исключения в VB.
Dim SQLInsert As String
ON ERROR GOTO ErrorHandler
SQLInsert = "INSERT INTO `Admin` (" & _
"`kode`," & _
"`nama`," & _
"`password`," & _
"`level`" & _
") VALUES (" & _
"'" & Text1.Text & "', " & _
"'" & Text2.Text & "', " & _
"'" & Text3.Text & "', " & _
"'" & Combo1.Text & "'" & _
")"
conn.Execute SQLInsert
MsgBox "Insert Succeed"Exit Sub
ErrorHandler:
Msg = "Error # " & Str(Err.Number) & " was generated by " &
Err.Source & ControlChars.CrLf & Err.Description
MsgBox(Msg, MsgBoxStyle.Information, "Error")
Exit Sub