Help with preparedsqlStatement

Getting Started
1

Hi,
I have many times using PreparedSQLStatement on linux and its worked normal.
now I need to do it on Windows, but does not work, the code seems to be fine.

dim ps as MySQLPreparedStatement

mDB = New MySQLCommunityServer
mDB.Host = "10.10.10.1"
mDb.UserName = "admin_office"
mDb.Password = "123456"
mDB.Port = 3306
mDb.DatabaseName = "admin_shop"

If mDb.Connect Then
  mIsConnected = True
  MessageBox "conneceted"
Else
  mIsConnected = False
End If

ps=mDB.Prepare("UPDATE livereport2 SET sales = ?, waktu=? WHERE shop = ?")

ps.BindType(0,MySQLPreparedStatement.MYSQL_TYPE_STRING)
ps.BindType(1,MySQLPreparedStatement.MYSQL_TYPE_STRING)
ps.BindType(2,MySQLPreparedStatement.MYSQL_TYPE_STRING)

ps.Bind(0,t_wad.text)
ps.Bind(1,"00:00")
ps.Bind(2,"wad")

ps.SQLExecute

I still dont where are the problem.

any helps?

thanks
arief

2

If you use the API2 calls then they do the prepare for you:

Var rs as Rowset, db as SQLiteDatabase, sql as string, ii, qq as integer

ii = 33
qq = 8

sql = "select a, b from mytable where i=?1 and q=?2"
rs  = db.SelectSQL (sql, ii, qq)
3

I don’t immediately see a problem. What does “does not work” mean in this context? Do you get an error message? Incorrect results? Have you checked the error properties?

4

Hi,
I have tried to put a msgbox, but seems the code is not executed.
The Original project file was created by xojo 2014 r4.3, I do upgrading to 2021 r1.1 version, because its not running then I downgrade to 2018 r4. but still dont work.

if its compiled in linux its running smoothly.

thanks
arief

5

Have you tied this in a new 2013r3.1 project with no additional changes?

What version of mysql server are you using and on which platform and version is it hosted?

Do you see the “conneceted” message box?

6

Hi,

The ‘connected’ Message is shown, I do remoteSQL from a Cloud VPS.
Okay, will try the 2013 r3.1

thanks
regards
arief