在易语言中连接数据库需要使用相关的数据库驱动程序,以下是一个简单的连接MySQL数据库的示例:
' 引用数据库驱动程序
$USE("e:\mylib\mysql\mysql.bas")
' 创建数据库连接
Dim conn As Mysql
' 初始化数据库连接
conn.Init("localhost", "root", "123456", "test", 3306)
' 连接数据库
If conn.Connect() Then
PrintLn "数据库连接成功"
Else
PrintLn "数据库连接失败"
End If
' 执行SQL语句
Dim sql As String
sql = "SELECT * FROM `user`"
If conn.Query(sql) Then
PrintLn "SQL语句执行成功"
Dim row As String
While conn.FetchRow(row)
PrintLn row
Wend
Else
PrintLn "SQL语句执行失败"
End If
' 关闭数据库连接
conn.Close()
在上述示例中,首先需要引用MySQL数据库驱动程序(mysql.bas),然后使用Mysql
对象创建数据库连接,并通过Init
方法设置连接参数,包括数据库地址、用户名、密码、数据库名和端口号。然后通过Connect
方法连接数据库,连接成功时返回True
,连接失败时返回False
。然后可以使用Query
方法执行SQL语句,并通过FetchRow
方法逐行获取查询结果。最后使用Close
方法关闭数据库连接。