Vb.net 连接到SOTAMAS90 ODBC?

Vb.net 连接到SOTAMAS90 ODBC?,vb.net,odbc,connection-string,Vb.net,Odbc,Connection String,如何使用他们设置的ODBC连接到Mas90的文件-SOTAMAS90?如何在vb.net中执行此操作 我-我自己也没有尝试过,没有100%确定它是否有效,也没有自称是vb.net程序员,但至少可以尝试一下 Imports System.Data Imports Microsoft.Data.Odbc ' Database Connection Public dbConn As OdbcConnection = Nothing Public dbCmnd As OdbcCommand Publi

如何使用他们设置的ODBC连接到Mas90的文件-SOTAMAS90?如何在vb.net中执行此操作

我-我自己也没有尝试过,没有100%确定它是否有效,也没有自称是vb.net程序员,但至少可以尝试一下

Imports System.Data
Imports Microsoft.Data.Odbc

' Database Connection
Public dbConn As OdbcConnection = Nothing
Public dbCmnd As OdbcCommand
Public dbReader As OdbcDataReader
Public dbConnStr As String
Public dbError As Exception

' Connect to MAS90 using ODBC; dbError stores the
' exception if any
Sub connectToDatabase(ByVal company As String, ByVal uid As String, ByVal pwd As String)

    Dim dsn As String = "SOTAMAS90"
    Dim timeout As String = "360"

    ' Build the connection string
    dbConnStr = "DSN=" + dsn + _
            ";Directory=M:\MAS90" + _
            ";Prefix=M:\MAS90\soa\" + _
            ";ViewDLL=M:\MAS90\Home\" + _
            ";SERVER=NotTheServer" + _
            ";Company=" + company + _
            ";UID=" + uid + ";PWD=" + pwd + ";"

    ' Connect if not already
    If (dbConn Is Nothing) Then
        Try
            dbConn = New OdbcConnection(dbConnStr)
            dbConn.ConnectionTimeout = timeout
            dbConn.Open()
            dbError = Nothing
        Catch ex As Exception
            dbError = ex
            dbConn = Nothing
        End Try
    End If
End Sub