第13章綜合實例-資料下載頁
2024-10-11 13:55本頁面
【導讀】MSChart是一個以圖形方式顯示數(shù)據(jù)的圖表。在中的上點擊右鍵，對話框，選中選項卡，設計人員通過從表或數(shù)組中。插入或輸入數(shù)據(jù)給數(shù)據(jù)網(wǎng)格填充信息。DataGrid對象被配置為行和列。以更改圖表的外觀。庫中檢索到的數(shù)據(jù)在內(nèi)存中的緩存。任何行中是否有錯誤值。NameSpace：設置DataSet控件的命名空間。Clear方法：該方法清除DataSet控件。也可以選擇寫架構。
【正文】 microsoft, 。 data source =通記錄 . mdb myconn. Open () ? Dim myeonn As New OleDbConnection 4. 修改窗體的代碼 2020/11/17 37 Dim mym As New OleDbCommand Dim myadpt As New OleDbDataAdapter Dim myds As New DataSet 39。更新數(shù)據(jù)庫 myconn. ConnectionString = provider = mierosoft, jet. oledb. 。 data source=通訊錄 .mdb myconn. Open() ? Private Sub btn2_ Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Me. Close() End Sub 4. 修改窗體的代碼 2020/11/17 38 Private Sub Form3_Load (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles MyBase. Load Dim myconn As New OleDbConnection Dim mym As New OleDbCommand Dim myadpt As New OleDbDataAdapter Dim myds As New DataSet myconn. ConnectionString = provider = microsoft, jet. oledb. 。 data source =通訊錄 .mdb () mym,CommandText=select*from通訊錄 =myconn = mym 5. 刪除窗體的代碼 2020/11/17 39 (myds) () =(0) End Sub Private Sub txt1_TextChanged(ByVal sender As ,ByVal e As _ ) Handles Dim myconn As New OleDbConnection Dim mym As New OleDbCommand ? myconn. ConnectionString = provider = microsoft, jet. oledb. 。 data source =通訊錄 . mdb myconn. Open () 5. 刪除窗體的代碼 2020/11/17 40 myeomm. CommandText = select ,性別 ,手機 ,家庭電話 , , ［ Email］ ,辦公話 ,地址 from 通訊錄where性名 =39。 amp。 TextBox1. Text amp。 39。 mym. Connection = myconn myadpt. SelectCommand = mym myadpt. Fill(myds) myconn. Close () If myds. Tables (0). Rows. Count 0 Then txt2. Text = myds. Tables (0). Rows (0) (0) txt3. Text = myds. Tables (0). Rows (0) (1) ? 5. 刪除窗體的代碼 2020/11/17 41 Private Sub Form2_Load (ByVal sender As System. Object, ByVal e As _ ) Handles MyBase. Load Dim myform As New Form5 myform. ShowDialog() End Sub Private Sub MenuIteml_Click(ByVal sender As System. Object, ByVal e As _ ) Handles MenuIteml. Click Dim myform As New Forml myform. MdiParent = Memyform. Show() End Sub ? 6. 主窗體的代碼 2020/11/17 42 通過本章給出的一些綜合實例，介紹較高級的編程知識給讀者。希望各位初學者在看不懂的地方多查資料、靈活運用各種知識尋找答案，從而獲得一些實戰(zhàn)經(jīng)驗。 本章小結 2020/11/17 43 謝謝！
教學課件相關推薦
鄂ICP備17016276號-1