Question

我需要帮助将MySQL数据库绑定到下拉列表。

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

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"))

并出现错误，说不支持关键字：＆＃39; driver＆＃39;。

感谢

Answer 1

所以问题不在于DropDown绑定：它是连接字符串，用于连接数据库：我请求检查您的计算机上是否安装了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;"

将mysql数据库绑定到下拉列表vb.net

1 个答案: