2015-10-15 84 views
1

我需要将MySQL数据库绑定到下拉列表的帮助。将mysql数据库绑定到下拉列表vb.net

这里是如何我通常连接到数据库

Dim connectionstring As String = ConfigurationManager.ConnectionStrings("DBstring").ConnectionString 
Dim connectme As OdbcConnection = New OdbcConnection(connectionstring) 
Dim ODBCdataset As DataSet = New DataSet() 
Dim sqlquery As String = "SELECT * FROM treconcalculation WHERE fid = " & Request.QueryString("id") 
connectme.Open() 
Dim ODBCdataadapter As OdbcDataAdapter = New OdbcDataAdapter(sqlquery, connectme) 
ODBCdataadapter.Fill(ODBCdataset, "treconcalculation") 
connectme.Close() 

      make1 = ODBCdataset.Tables("treconcalculation").Rows(0).Item(1) 
      model1 = ODBCdataset.Tables("treconcalculation").Rows(0).Item(2) 
      cc1 = ODBCdataset.Tables("treconcalculation").Rows(0).Item(3) 
      below2 = ODBCdataset.Tables("treconcalculation").Rows(0).Item(4) 
      below3 = ODBCdataset.Tables("treconcalculation").Rows(0).Item(5) 
      below4 = ODBCdataset.Tables("treconcalculation").Rows(0).Item(6) 
      below5 = ODBCdataset.Tables("treconcalculation").Rows(0).Item(7) 
      above5 = ODBCdataset.Tables("treconcalculation").Rows(0).Item(8) 

我怎么去实现它的下拉列表?我试过

Dim constr As String = ConfigurationManager.ConnectionStrings("DBstring").ConnectionString 
      Using con As New SqlConnection(constr) 
       Using cmd As New SqlCommand("SELECT fid, fmake, fmodel FROM treconcalculation") 
        cmd.CommandType = CommandType.Text 
        cmd.Connection = con 
        Using sda As New SqlDataAdapter(cmd) 
         Dim ds As New DataSet() 
         sda.Fill(ds) 
         vehicle1.DataSource = ds.Tables(0) 
         vehicle1.DataTextField = "fmodel" 
         vehicle1.DataValueField = "fid" 
         vehicle1.DataBind() 
        End Using 
       End Using 
      End Using 
      vehicle1.Items.Insert(0, New ListItem("--Select Customer--", "0")) 

并且出现一个错误提示说不支持关键字:'driver'。

感谢

+0

哪条线给你那个错误? –

+0

我发现这条线出了问题。 connectionString =“DRIVER = {MySQL ODBC 3.51 Driver}是否可以将脚本更改为ODBC驱动程序? – Jacklck

回答

0

所以,问题不在于下拉结合:它与连接字符串,您正在使用连接到数据库:我请你检查ODBC驱动程序3.51是否已经安装在你的机器并检查具有所有有效参数的连接字符串。如果你正在代码中建立连接字符串,我建议你使用如下:

Dim _DbHost = "localhost"; 
Dim _DbName = "yourDBName"; 
Dim _DbPassWord = "DbUser"; 
Dim _DbUser = "*****"; 
Dim ConString = "Driver={MySQL ODBC 3.51 Driver};" + 
       "Server=" + DbHost + ";" + 
       "Database=" + DbName + ";" + 
       "User=" + DbUser + ";" + 
       "Password=" + DbPassWord + ";" + 
       "option=3;"