最好有工程文件,或者是源码
解决方案 »
- vbCRLF不能正常显示是怎么搞的
- VB datacombo 怎么增加一条不属于绑定的adodc的记录
- 如何实时读取sql server2005 的数据记录
- WebBrowser 非常非常非常非常奇怪的问题!
- 平台:大家把自己常用的第三方控件,功能以下载地址列出来!供大家参考交流!参与有分。
- 如何判断自己做的控件(.ocx)是否已注册?
- 求救!!!急急急!!!
- 精通tdbgrid的朋友请进来看看,帮帮忙
- 如何把DataReport设置为横向打印?
- 如何在ActiveMovie、mmControl或MediaPlayer播放AVI,他们是否可以指定一个位置来播放?
- 关于select语句
- 怎样在2个窗体之间共用一个变量传递SQL语句?
Public mCnnString As String
'工程->引用->Microsoft ActiveX Data Objects 2.X Library
'窗体上放DTPicker1、Command1、Command2、Command3、Text1、Text2
'数据库Test中有一个学生表,其中有学生(nvarchar),入学总分(int),入学时间(datetime)三个字段
Private Sub Command1_Click()
Dim mRst As New ADODB.Recordset
mRst.CursorLocation = adUseClient
mRst.Open "Select * From 学生表 Where 1 = 0", mCnnString, adOpenStatic, adLockOptimistic, adCmdText
mRst.AddNew
mRst("学生姓名") = Text1.Text
mRst("入学总分") = Text2.Text
mRst("入学时间") = Format((DTPicker1.Value), "yyyy-mm-dd")
mRst.Update
mRst.Close
Set mRst = Nothing
End SubPrivate Sub Command2_Click()
Dim mCnn As New ADODB.Connection
mCnn.ConnectionString = mCnnString
mCnn.Open
mCnn.Execute ("Delete From 学生表 Where 入学时间 = '" & "2004-05-13'")
mCnn.Close
Set mCnn = Nothing
End SubPrivate Sub Command3_Click()
Dim mCnn As New ADODB.Connection
mCnn.ConnectionString = mCnnString
mCnn.Open
mCnn.Execute ("Insert Into 学生表(学生姓名,入学总分,入学时间) Values('" & "也金'," & "897,'" & "2004-05-13')")
mCnn.Close
Set mCnn = Nothing
End SubPrivate Sub Form_Load()
mCnnString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Test;Data Source=Server"
End Sub
Dim wcn As New adodb.Connection
Dim wstr As String
Dim wsq, wwh As String
wwh = ""
wsq = "delete * from 年度工资表 where 年份='" & Text4.Text & "'"
wstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:\职工工资调试\wage.mdf;Persist Security Info=False"
wcn.Open wstr
msg = MsgBox("你确定要删除'" & Text4.Text & "'的年度的工资表吗?删除以后不可恢复!请慎重", 4 + 32 + 0, "删除提示")
If msg = vbYes Then
wre.Open Trim$(wsq), wcn, adOpenKeyset, adLockOptimistic
Else
Call Form6.deleyear
End If
'wre.Update
'wre.Close
wcn.Close
'Set wre = Nothing
Set wcn = Nothing
sConnect = "provider=msdasql.1;dsn=aa;uid=" & gbC3user & ";pwd=" &
Set dfwConn = New ADODB.Connection
dfwConn.Open sConnect