MySQL访问在FreeBASIC中读取

Question

我在开发这个示例代码时遇到了问题。

这段代码将有助于理解与MySQL服务器的通信是如何在FreeBASIC中工作的，目前我已经在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

Answer 1

代码是正确的，错误的只是显示，将mysql对象视为数组，而它是类型对象。

下面我将重写正确的代码。

#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
' remove print MySQLOut(0) because is not array
' and put this cicle FOR NEXT
' Remember Row[] is not a array if you want store the data in array you have ' to convert it 
    
    For CiR = 0 to TotalRow -1 step 1
    Row = mysql_fetch_row(MySQLOut)
      For Cic = 0 To TotalCol - 1 step 1
        if Row[CiC] = NULL then print "| NULL "; else print "| "; *Row[CiC]
      Next CiC
    Next Cir

    mysql_free_result(MySQLOut)
    mysql_close(Conn)
End Sub

Reading()

end 0