Dim Mydb As New ADODB.Recordset
Dim Mydb1 As New ADODB.Recordset
Dim Count1 As New ADODB.Recordset
Dim Str_text As String
Private Sub cmd_add_Click()
On Error Resume Next
Dim A, B
B = 1
Set Count1 = ExeCutesql("select * from 成員 ", Str_text)
Count1.MoveLast
B = Count1.Fields(4) + 1
A = MsgBox("是否添加前記錄?", vbYesNo + 32, "修改記錄")
If A = vbYes Then
ExeCutesql "insert into 成員 values('" & Text1.Text & "','" & Text2.Text & "','" & Format(DTPicker1.Value, "yyyy-mm-dd") & "','" & Text3.Text & "'," & B & ") ", Str_text
Call Db
Mydb.MoveLast
MsgBox "資料已經保存！", vbOKOnly + 64, "成功"
End If
End Sub
Private Sub cmd_close_Click()
Unload Me
End Sub
Private Sub cmd_del_Click()
On Error Resume Next
Dim A
A = MsgBox("是否洗掉當前記錄", vbYesNo + 32 + 256, "洗掉記錄")
If A = vbYes Then
ExeCutesql "DELETE from 成員 where key=" & txt_key.Text & "", Str_text
'Mydb.Requery
'If Mydb.EOF Then Mydb.MoveLast
'Call Db
Set Mydb = ExeCutesql("select * from 成員", Str_text)
Set MSHFlexGrid1.DataSource = Mydb
End If
End Sub
Private Sub cmd_edit_Click()
On Error Resume Next
Dim A
A = MsgBox("是否修改前記錄?", vbYesNo + 32, "修改記錄")
If A = vbYes Then
ExeCutesql "Update 成員 set 稱呼='" & Text1.Text & "',姓名='" & Text2.Text _
& "',生日='" & DTPicker1.Value & "',格言='" & Text3.Text & "'where key=" & txt_key.Text & "", Str_text
MsgBox "資料已經修改成功！", vbOKOnly + 64, "成功"
Call Db
End If
End Sub
Private Sub Form_Load()
Call Db
DTPicker1.Value = Date
End Sub
Private Function Db()
Set Mydb = ExeCutesql("select * from 成員", Str_text)
Set MSHFlexGrid1.DataSource = Mydb
End Function
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub MSHFlexGrid1_Click()
On Error Resume Next
Text1.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)
Text2.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)
DTPicker1.Value = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 3)
Text3.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 4)
txt_key.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 5)
End Sub
求各位大神貼上代碼，謝謝啦！
uj5u.com熱心網友回復：
flexgrid的第一列，號碼是0，大致看了下，你沒有對這一列賦值過uj5u.com熱心網友回復：
txt_key.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 5)這里改成
txt_key.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0)
uj5u.com熱心網友回復：
mshflexgrid控制元件的列從第0列開始，都是可以自己設定的uj5u.com熱心網友回復：
改0也不行..........uj5u.com熱心網友回復：
Set Mydb = ExeCutesql("select * from 成員", Str_text)改成：
Set Mydb = ExeCutesql("select key,稱呼,姓名,生日,格言 from 成員", Str_text)
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/88095.html