2013-09-24 37 views
0

嗨我試圖通過VB訪問MS ACCESS數據庫,我得到這個錯誤 錯誤[IM002] [微軟] [ODBC驅動程序管理器]數據源名稱未找到,沒有默認驅動程序中指定來源名稱未找到,沒有指定默認驅動程序111

我做:

  • 更改IIS管理器 - 應用池App32位真
  • 下載DB驅動程序訪問
  • 安裝Access CLIEN牛逼

空話是做什麼工作,我從2臺不同勢電腦

嘗試這是我的代碼

私人小組的button1_Click(BYVAL發件人爲System.Object的,BYVALË作爲System.EventArgs )Handles Button1.Click

Dim vConnectionStringX As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\1767631\db_Assign_2.accdb;Persist Security Info=False;" 
    Dim rtfConn As New Data.Odbc.OdbcConnection(vConnectionStringX) 
    rtfConn.Open() 






    Dim cusFName As String = TextBox1.Text 
    Dim cusLName As String = TextBox2.Text 
    Dim cusTP As String = TextBox3.Text 
    Dim cusEmail As String = TextBox4.Text 

    Dim vSQL As String = "Insert into Customer(FirstName, LastName, Telephone, Email) Values (" & cusFName & "," & cusLName & "," & cusTP & "," & "cusEmail"")" 

    Try 
     Dim rtfSQLCMD As New Data.Odbc.OdbcCommand 
     rtfSQLCMD.Connection = rtfConn 
     rtfSQLCMD.CommandText = vSQL 
     Dim vResult As Integer = rtfSQLCMD.ExecuteNonQuery 
     MessageBox.Show("Customer registered! " & vResult) 

    Catch ex As Data.Odbc.OdbcException 
     Dim vErMsg As String = "*** Error occured while registering the customer ***" & ControlChars.NewLine 

    End Try 

    rtfConn.Close() 

End Sub 

Plese help me!

回答

0

您的連接字符串用於OleDb連接,它不適用於Odbc。你必須使用類似這樣的OdbcConnection:

Dim vConnectionStringX As String = "Driver={Microsoft Access Driver (*.mdb)};DBQ=c:\db1.mdb" 

您還需要保存您的訪問數據庫「的.mdb」文件(如MS訪問2000至03年的格式)

注:還有另一種選擇:如果您沒有理由使用Odbc,爲什麼不使用通常用於Microsoft Access數據庫的OleDb?如果你想使用OleDb,你應該使用原始的(當前)連接字符串,但是使用OleDbConnection作爲你的連接變量,使用OleDbCommand作爲你的命令變量,等等。

0

此外,請確保您已經更新了Service Pack SP6的VB6。它需要處理MS Access 2000及更高版本。

相關問題