'读取
Set rs = CreateObject("adodb.recordset")
sqlstr = "select memb___id from MEMB_STAT where ConnectStat=1"
rs.open sqlstr, conn, 1, 1
tatalrecord = rs.recordcount
msgbox tatalrecord
'修改
sql = "update MEMB_INFO set sno__numb=sno__numb-1 where memb___id ='" & Text1.Text & "' "
conn.execute sql
'删除
sql2="delete from Character where Name='"&id&"'"
conn.execute(sql2)
'添加
set rs2 = Server.CreateObject("ADODB.Recordset")
sql="INSERT INTO MEMB_INFO (memb___id,memb__pwd,memb_name,sno__numb) VALUES ('"&ps_loginname&"','"&ps_password&"','"&ps_nickname&"', '3')"
set rs2=conn.execute(sql)
'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim rs As New ADODB.Recordset, cn As New ADODB.Connection
'在MSHFLEXGRID表格控件中显示查询到的内容
Private Sub Command1_Click()
If rs.State = adStateOpen Then rs.Close
rs.Open "SELECT * FROM USERPASSWORD", cn, adOpenDynamic, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs
End Sub
'向数据库中添加数据
Private Sub Command2_Click()
If rs.State = adStateOpen Then rs.Close
rs.Open "SELECT * FROM USERPASSWORD", cn, adOpenDynamic, adLockOptimistic
rs.AddNew
rs!UID = txtUid.Text
rs!PWD = txtPwd.Text
rs!TRUENAME = txtName.Text
rs!CREATEDATE = Format(Now, "YYYY/MM/DD")
rs.Update
Command1.Value = True
End Sub
'从数据库中删除数据
Private Sub Command3_Click()
cn.Execute "DELETE FROM USERPASSWORD WHERE UID = '" & txtUid.Text & "'"
Command1.Value = True
End Sub
Private Sub Command4_Click()
With MSHFlexGrid1
Clipboard.SetText .Text
End With
End Sub
Private Sub Command5_Click()
With MSHFlexGrid1
.Text = Clipboard.GetText
End With
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
Private Sub MSHFlexGrid1_RowColChange()
With MSHFlexGrid1
'MsgBox .TextMatrix(.Row, .Col)
End With
End Sub