text [连接数据库] #Xojo #PosgreSQL

Posted 2021-05-03

//Connect to a database
Dim db As New PostgreSQLDatabase
db.Host = "127.0.0.1"
db.Port = 5432
db.DatabaseName = "TestDB"
db.UserName = "XojoUser"
db.Password = "secret"
//Is the database connected?
If db.Connect = True Then
  MsgBox "The database is connected"
Else
  MsgBox "There is an error with the database: " + db.ErrorMessage
End If