acess資料庫 顯示 TextBox 的問題

asdzxc951963

目前使用的版本是 2010
最近開始接觸資料庫的東西
VB已經有內建元件
但是老師希望我們利用ADO.NET去撰寫程式碼
例如: 新增 刪除 更新 這些
翻的ADO.NET的書籍都是2002~2003那時候出版的
加上GOOGLE 查詢 新增這些的程式碼 都毫無頭緒

想請問有大大能提供一些資訊嗎
...

瀏覽完整內容，請先 註冊 或 登入會員

darkjack

之前我寫的小範例
用的是 access 97 ..
如果看不懂，還是請你google 吧

asdzxc951963

妳好大大我們這組成員 用了妳給我的rar去改之後出現了一些小問題

他把原本設定生日(TextBox2)的改成設定學號
原本的格式好像是生日的格式
可是執行輸入區更新資料時 會一直出現 檢查學號格式是否正確

請問有那些地方要更改的嗎 有點搞不懂中

1. #Region "Update 程式碼"
   
2.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
3.         conn.Open()
   
4.         Dim UpdateStr As String
   
5.         Dim a, b, c, d, f, g, h, i As String
   
6.         a = DGView1.CurrentRow.Cells("學號").Value.ToString
   
7.         b = DGView1.CurrentRow.Cells("姓名").Value.ToString
   
8.         c = DGView1.CurrentRow.Cells("地址").Value.ToString
   
9.         d = DGView1.CurrentRow.Cells("系所").Value.ToString
   
10.         f = DGView1.CurrentRow.Cells("電話").Value.ToString
    
11.         g = DGView1.CurrentRow.Cells("生日").Value.ToString
    
12.         h = DGView1.CurrentRow.Cells("性別").Value.ToString
    
13.         i = DGView1.CurrentRow.Cells("E-mail").Value.ToString
    
14.         'Update 指令 必須要有 --> ` 符號
    
15. 
    
16.         UpdateStr = "update 學生資料表 set `學號` = '" + TextBox1.Text + "', `姓名` ='" + TextBox2.Text + "'  , `地址` ='" + TextBox3.Text + "' , `系所` ='" + TextBox4.Text + "' , `電話`='" + TextBox5.Text + "' , `生日`='" + TextBox6.Text + "', `性別`='" + TextBox7.Text + "',`E-mail`='" + TextBox8.Text + "'where 學號 =@a and 姓名 =@b and 地址 =@c and 系所 =@d and 電話 =@f and 生日 =@g and 性別 =@h and E-mail =@i"
    
17. 
    
18.         MyDataAdapter.UpdateCommand = New OleDbCommand(UpdateStr, conn)
    
19.         Dim myParameters(7) As OleDbParameter
    
20. 
    
21.         myParameters(0) = New OleDbParameter("學號", a)
    
22.         myParameters(1) = New OleDbParameter("姓名", b)
    
23.         myParameters(2) = New OleDbParameter("地址", c)
    
24.         myParameters(3) = New OleDbParameter("系所", d)
    
25.         myParameters(4) = New OleDbParameter("電話", f)
    
26.         myParameters(5) = New OleDbParameter("生日", g)
    
27.         myParameters(6) = New OleDbParameter("性別", h)
    
28.         myParameters(7) = New OleDbParameter("E-mail", i)
    
29. 
    
30.         MyDataAdapter.UpdateCommand.Parameters.AddRange(myParameters)
    
31. 
    
32.         MyDataAdapter.UpdateCommand.ExecuteNonQuery()
    
33. 
    
34.         MessageBox.Show("更新成功！")
    
35. 
    
36.         conn.Close()
    
37. 
    
38.     End Sub
    
39. #End Region
    
40. 
    
41. #Region "不常用的程式碼 離開程式與切換From"
    
42.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    
43.         Me.Dispose()
    
44. 
    
45.     End Sub
    
46. 
    
47. #End Region
    
48. 
    
49. #Region "重新讀取程式碼"
    
50.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    
51.         '重新讀取
    
52.         conn.Open()
    
53. 
    
54.         Dim str1 = "select * from 學生資料表"
    
55.         MyDataAdapter = New OleDbDataAdapter(str1, conn)
    
56.         MyData = New DataSet
    
57. 
    
58.         MyDataAdapter.Fill(MyData, "學生資料表")
    
59.         DGView1.DataSource = MyData.Tables("學生資料表")
    
60.         conn.Close()
    
61.     End Sub
    
62. 
    
63. #End Region
    
64. 
    
65. 
    
66.     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    
67.         '儲存 修改 更新
    
68.         Try
    
69.             conn.Open()
    
70.             '    ConnInput.Open()
    
71. 
    
72.             Dim InsStr = "Insert into 學生資料表" & _
    
73.             "(學號,姓名,地址,系所,電話,生日,性別,E-mail)" & _
    
74.             "values (?,?,?,?,?,?,?,?)"
    
75. 
    
76.             Dim MyParameter(7) As OleDbParameter
    
77. 
    
78.             MyDataAdapter.InsertCommand = New OleDbCommand(InsStr, conn)
    
79. 
    
80.             MyParameter(0) = New OleDbParameter("學號", TextBox1.Text)
    
81.             MyParameter(1) = New OleDbParameter("姓名", TextBox2.Text)
    
82.             MyParameter(2) = New OleDbParameter("地址", TextBox3.Text)
    
83.             MyParameter(3) = New OleDbParameter("系所", TextBox4.Text)
    
84.             MyParameter(4) = New OleDbParameter("電話", TextBox5.Text)
    
85.             MyParameter(5) = New OleDbParameter("生日", TextBox6.Text)
    
86.             MyParameter(6) = New OleDbParameter("性別", TextBox7.Text)
    
87.             MyParameter(7) = New OleDbParameter("E-mail", TextBox8.Text)
    
88. 
    
89. 
    
90.             MyDataAdapter.InsertCommand.Parameters.AddRange(MyParameter)
    
91.             MyDataAdapter.InsertCommand.ExecuteNonQuery()
    
92. 
    
93.             MsgBox("新增完成")
    
94.         Catch err As OleDbException
    
95.             '   MessageBox.Show(err.ToString)
    
96.             MsgBox("檢查學號格式是否正確" & vbCrLf & "範例:L00000000")
    
97. 
    
98.         Finally
    
99.             '   ConnInput.Close()
    
100.             conn.Close()
     
101. 
     
102.         End Try
     
103.     End Sub

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

darkjack

程式碼算是一種「輔助」
主要的設定還是要進去ACCESS 裡面做更改
（VB也是可以改 ACCESS 的格式，還是建議您直接進去ACCESS 改比較快)
且我比較沒碰這塊區域（我當初寫這個簡易的通訊錄也是網路上一直查）
如果你有比較急切需要解答，可以問 C#的板主，他比較有研究這塊
但是請注意禮貌喔，他很注重禮貌的


補充內容 (2012-7-25 11:59 PM):...

瀏覽完整內容，請先 註冊 或 登入會員

asdzxc951963

好的謝謝您
繼續研究看看
ACCESS我反而沒什麼研究到
本來是想說用SQL去試試看
謝謝大大

asdzxc951963

謝謝您的提示 昨天的問題 有處理好了 ..
現在要增加 修改 刪除 跟指定查詢 這邊的程式碼
請問大大能再給些方向嗎

darkjack

你可以直接找 SQL 指令
範例網址

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

請自己把多餘的"__"刪除

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

...

瀏覽完整內容，請先 註冊 或 登入會員

mety666

ADO.NET 在 MSDN 文件中有很完整的說明, 只是要看你願不願意花時間讀了.

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

asdzxc951963

版大我又有問題要問妳了 ~"~

vb方面 我們老師是說叫我們別用DGView 去連資料庫

請問還有其他方式 可以連 access嗎

darkjack

我很想跟你老師說
不用DataGridView 去連資料庫，是要新手完全用指令下去跑？
就類似像這種形態（仔細看後面還是有DataGrid 的一些控件）

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

不用DGView 去連資料庫是因為往後要改資料庫檔名比較不方便吧
...

瀏覽完整內容，請先 註冊 或 登入會員

asdzxc951963

摁摁 結果我們還是使用DGView

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

看完這篇 想請問
SELECT 密碼 FROM 登錄資料 WHERE 使用者=
是如何建置的
因為我弄了很久 都是一長串 沒有辦法像這位大大提供的 這麼一小串 ~"~


補充內容 (2012-8-28 02:58 PM):...

瀏覽完整內容，請先 註冊 或 登入會員

arthurliuliu

DataGridView 只是一種呈現方式。

連接資料庫取得資料，簡單分就是兩種方式，
一種是寫程式碼，一種透過精靈設定，你們老師要求的是哪一種呢？
我想你們老師應該不是叫你們不能用 DataGridView，
而是希望你們自己寫程式碼去跟資料庫溝通。

asdzxc951963

版大卡一個問題了 上網查都是給My Sql的 ..
類似有(A資料表) 裡面 跟 另一張(B資料表) 有些資料是重複的
我是想說 從(A資料表)把資料連到Label顯示
再從Label顯示出來的資料 讓(B資料表)讀取儲存
這讓不知道可不可以讓原本要在(B資料表)輸入一堆Textbox的欄位可以簡化一些


補充內容 (2012-9-10 01:09 AM):
不知道是不是因為Label的關西 所以會一直試不成功
...

瀏覽完整內容，請先 註冊 或 登入會員

darkjack

姑且不論你查到是啥指令，
你顯示出來的資料 不管是丟到label 還是textbox 都可以用
唯一差別就是 label 只能一次顯示一行，textbox 可以顯示多行

asdzxc951963

這是從網路上查到的

像是  
Dim ConStr As String = "Provider=Microsoft.Jet.Oledb.4.0;Data source=測試用.mdb"
我是想讓 TextBox1查詢資料表A的學號 讓在TextBox2、3 出現資料表A 姓名 手機 之類的資料
然後另一張TabPage裡面的程式碼 直接設定TextBox2、3 讓資料表B 去存取 ..

可是現在 這網上找的程式碼 昨天修了老半天 還是找不出原因
...

瀏覽完整內容，請先 註冊 或 登入會員