代碼如下
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myconn As SqlConnection = New SqlConnection("database = 網上書店資料庫;data source =.;integrated security=true;")
Dim mysql As String = "select customercode as 顧客編號,name as 姓名,sex as 性別 ,job as 職業，birthday as 出生日期，hometown as 籍貫，email as 郵箱，telephone as 手機號碼，vipclass as 客戶等級，loyaltyclass as 客戶忠誠度 from customer where name like '%" & TextBox1.Text & "%'"
Dim myadapter As New SqlDataAdapter(mysql, myconn)
Dim mydataset As New DataSet
myadapter.Fill(mydataset, "customer")
DataGridView1.DataSource = mydataset.Tables(0)
End Sub
uj5u.com熱心網友回復：
報的啥錯？？？？？？？？？？？？？？？？？？？？？？？？？？？？先說代碼里能看出來的問題，你的sqlconnection沒有open；
你想在fill的dataset的時候填充到一個不存在的datatable，我沒有試過，可能會找不到可用物件，也可能會自動創建，不過本身sqldataadapter是可以fill到一個datatable的，如果沒有特別的需求，datatable比dataset更方便。
Dim Datatable1 As New DataTable
myadapter.Fill(Datatable1)
DataGridView1.DataSource=Datatable1
uj5u.com熱心網友回復：
標點符號明顯錯誤，既有單位元組逗號，也有雙位元組逗號。
Dim mysql As String = "select customercode as 顧客編號,name as 姓名,sex as 性別 ,job as 職業，birthday as 出生日期，hometown as 籍貫，email as 郵箱，telephone as 手機號碼，vipclass as 客戶等級，loyaltyclass as 客戶忠誠度 from customer where name like '%" & TextBox1.Text & "%'"
改用：
Dim mysql As String = "select customercode as 顧客編號,name as 姓名,sex as 性別 ,job as 職業,birthday as 出生日期,hometown as 籍貫,email as 郵,telephone as 手機號碼,vipclass as 客戶等級，loyaltyclass as 客戶忠誠度 from customer where name like '%" & TextBox1.Text & "%'"
uj5u.com熱心網友回復：
關于自己是否適合編程的很簡單的測驗：在報紙或雜志上隨便找一段約1000字的文章，在Word中輸入一遍。輸完后再參考下面答案：
A里面有10處以上文字或標點錯誤
B里面沒有文字或標點錯誤并敢為此跟人打賭
C里面沒有文字或標點錯誤并且字體和排版完全與原稿一致
D列印在半透明的紙上和原稿重疊在一起檢查一模一樣，且自我感覺很有成就感
A不適合編程（理由：打字準確度偏低、粗心大意）
B初級程式員（理由：打字準確度很高、認真細致、自信、理解全角半角概念）
C高級程式員（理由：在B的基礎上理解字體和排版也是電腦列印的重要因素、但相比D還不夠偏執、精益求精、結果可驗證）
D軟體專案經理（理由：能針對專案給出令人信服的細致到極點的需求說明和典型測驗用例。用戶幾乎挑不出毛病。專業！）
如果想從A變成B的話，到我的資源http://download.csdn.net/detail/zhao4zhong1/4084259里面下載“適合程式員的鍵盤練習”
uj5u.com熱心網友回復：
感謝各位，已解決轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/45298.html
標籤：VB基礎類