我在开发这个示例代码时遇到问题.
这段代码有助于理解在FreeBASIC中与MySQL服务器的通信是如何工作的,目前我已经找到了一些C语言的示例,但我不知道如何适应FreeBASIC中的所有内容.
在应该显示内容的部分,在编译时给了我一个错误,我不知道该怎么做.
#Include Once "mysql\mysql.bi"
#define NULL 0
Dim Shared URLServer As String
Dim Shared SVRDataBase As String
Dim Shared SVRUser As String
Dim Shared SVRPassword As String
DIM Shared Conn As MYSQL PTR
DIM Shared MySQLOut As MYSQL_RES PTR
DIM Shared Row As MYSQL_ROW
Declare Function MySQLRead(MyQuery As String, MyWork As String) As Integer
Function MySQLRead(MyQuery As String, MyWork As String) As Integer
URLServer = "localhost"
SVRDataBase = "test"
SVRUser = "testuser"
SVRPassword = "testpassword"
MyQuery = "SELECT * FROM `test_table`"
Conn = mysql_init(NULL)
if (Conn = 0) then Print "Error Conn= 0"
if mysql_real_connect(Conn, URLServer, SVRUser, SVRPassword, SVRDataBase, 0, NULL, 0) = NULL then Print "Real Connect = 1"
if mysql_query(Conn, MyQuery) then Print "Query = 1"
MySQLOut = mysql_store_result(Conn)
if MySQLOut = 0 then Print "No out"
Return 1
End Function
Sub Reading()
DIM TotalCol As Integer
DIM TotalRow As Integer
Dim CiR As Integer
Dim CiC As Integer
Dim NE as Integer
IF MySQLRead("SELECT * FROM `cape_anagrafica`", "read") = 0 then Print "Errore"
TotalCol = mysql_num_fields(MySQLOut)
TotalRow = mysql_num_rows(MySQLOut)
print TotalRow
print MySQLOut(0)
mysql_free_result(MySQLOut)
mysql_close(Conn)
End Sub
Reading()
end 0