none
vb 讀取 mysql 資料 RRS feed

  • 問題

  • 各位大大,
    由於剛學習vb沒多久,想讀取mysql 內的資料,
    但不知如何讓vb讀入

    我有個多行的textbox
    因為 num為主key, 只有唯一
    所以SQL語法是:SELECT note FROM test where num = 10009812101829
    這樣會產生一個有多行的文字,
    想把這個文字放進textbox1內,
    所以請教各位大大怎麼讓它執行?
    2009年12月11日 上午 05:46

解答

所有回覆

  • http://dev.mysql.com/tech-resources/articles/ebonat-load-and-search-mysql-data-using-vbnet-2005.html

    更多:
    http://www.google.com.tw/search?hl=zh-TW&q=mysqlConnection+TextBox+vb&meta=&aq=f
    論壇是網友平等互助 保證解答請至 微軟技術支援服務
    提問時,錯誤情境描述與錯誤訊息很重要,情境描述包含你做了什麼,預期的結果與實際發生的結果。一個最爛的問法範例:「我的電腦電腦怎麼不能開機?」誰知道你家是不是沒電還是你根本找不到電源鈕。
    • 已標示為解答 Lolota Lee 2009年12月18日 上午 05:54
    2009年12月11日 上午 06:50
  • HI,

    您可以呼叫ExecuteScalar方法, 再將取得的結果填入TextBox控制項即可, 請參考:
    ASP.NET MySql.Data.MySqlClient - ExecuteScalar(http://www.thaicreate.com/asp.net/asp.net-mysql.data.mysqlclient-executescalar.html)
    • 已標示為解答 Lolota Lee 2009年12月18日 上午 05:54
    2009年12月11日 上午 11:18
  • 謝謝「心冷熱情熄」大大和「tihs」大大的解答,
    小的不才,也貼上我最後解決的程式碼
    分享給新接觸vb的各位。

            Dim str2 As String = "Server=localhost;database=test;User Id=root;Password=123456;pooling=false;"
        
            Dim conn1 As MySqlConnection = New MySqlConnection(str2)
            conn1.Open()
    
            '查詢資料
            Dim str3 As String = "SELECT * FROM test where test_num = 10"
            Dim adapter1 As Common.DbDataAdapter = New MySqlDataAdapter(str3, conn1)
    
            '將查詢結果放到記憶體dataset1上的"1a-score"表格內
            Dim dataset1 As DataSet = New DataSet
            adapter1.Fill(dataset1, "1a-score")
            'Label_pre_num.Text = dataset1.Tables("1a-score").Rows(0)(0)此行是主鍵值,所以不打算顯示
            Label_num.Text = dataset1.Tables("1a-score").Rows(0)(1)
            Label_name.Text = dataset1.Tables("1a-score").Rows(0)(2)
            Label_phone.Text = dataset1.Tables("1a-score").Rows(0)(3)
            Label_time.Text = dataset1.Tables("1a-score").Rows(0)(4)
            Label_type.Text = dataset1.Tables("1a-score").Rows(0)(5)
            textbox_note.Text = dataset1.Tables("1a-score").Rows(0)(6)
    
            '關閉資料庫的連結
            conn1.Close()
            conn1.ConnectionString = Nothing
    2009年12月14日 上午 02:27