1184
社区成员
- 全部
用VB编下个程序,关于数据库的问题！！大家一定要帮我呀，SOS，谢谢！！
用VB编下个程序
第一个FORM
有个TEXT框可以输入数据库的名字
一个按钮用作建一个VB的数据库
另一个按钮用作打开一个VB的数据库
第一个FORM
对于新建的数据库可以添加。删除
对于打开的数据库可以追加。删除
第一个FORM
有个TEXT框可以输入数据库的名字
一个按钮用作建一个VB的数据库
另一个按钮用作打开一个VB的数据库
第一个FORM
对于新建的数据库可以添加。删除
对于打开的数据库可以追加。删除
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
daryl715 2002-05-20
不客气
luckyjeery 2002-05-20
thank you very much!!
daryl715 2002-05-20
只不过是后台数据库不一样
不同的数据库只要更换相应的连接字符串cnnstr就可以了
不同的数据库只要更换相应的连接字符串cnnstr就可以了
daryl715 2002-05-20
只不过是后台数据库不一样
不同的数据库只要更换相应的连接字符串cnnstr就可以了
不同的数据库只要更换相应的连接字符串cnnstr就可以了
luckyjeery 2002-05-20
这么复杂呀！！要是简单的用VF做数据那该怎么办！！
liuyufeng 2002-05-20
dim dbdata as database
dim rst as recordset
text1.text=rst(fileds(index))
dim rst as recordset
text1.text=rst(fileds(index))
daryl715 2002-05-20
添加记录
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
With rst
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "select * from stu", cnnstr
.AddNew
.Fields("字段1") = "1"
.Fields("字段2") = "2"
.Fields("字段3") = "3"
.Fields("字段4") = "4"
.Fields("字段5") = "5"
.Update
.UpdateBatch adAffectAllChapters
End With
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close
删除记录
'删除第一条数据
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
With rst
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "select * from stu", cnnstr
.Delete adAffectCurrent
.Update
.UpdateBatch adAffectAllChapters
End With
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close
用SQL选择删除数据
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
With rst
.CursorType = adOpenForwardOnly
.LockType = adLockOptimistic
.Open "select * from stu where 字段1='" & "r" & "'", cnnstr
.Delete adAffectCurrent
.Update
.UpdateBatch adAffectAllChapters
End With
Set Form1.MSHFlexGrid1.DataSource = rst
Next i
rst.Close
cnn1.Close
删除SQL搜索到的多条数据
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
Dim a As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu where 字段1='" & "r" & "'", cnnstr
Do Until rst.EOF
rst.Delete adAffectCurrent
rst.Update
rst.UpdateBatch adAffectAllChapters
rst.MoveNext
Loop
set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close
删除所有数据
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu ", cnnstr
Do Until rst.EOF
rst.Delete
rst.Update
rst.UpdateBatch adAffectAllChapters
rst.MoveNext
Loop
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
编辑记录
修改一条记录
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
Dim a As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu where 字段1= '" & "text1" & "'", cnnstr
rst.Update
rst.Fields("字段1") = Me.Text1.Text
rst.Fields("字段2") = Me.Text2.Text
rst.Fields("字段3") = Me.Text3.Text
rst.Fields("字段4") = Me.Text4.Text
rst.Fields("字段5") = Me.Text5.Text
rst.UpdateBatch adAffectAllChapters
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close
修改多条记录
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
Dim a As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu where 字段1= '" & "高" & "'", cnnstr
Do Until rst.EOF
rst.Update
rst.Fields("字段1") = Me.Text1.Text
rst.Fields("字段2") = Me.Text2.Text
rst.Fields("字段3") = Me.Text3.Text
rst.Fields("字段4") = Me.Text4.Text
rst.Fields("字段5") = Me.Text5.Text
rst.UpdateBatch adAffectAllChapters
rst.MoveNext
Loop
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
With rst
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "select * from stu", cnnstr
.AddNew
.Fields("字段1") = "1"
.Fields("字段2") = "2"
.Fields("字段3") = "3"
.Fields("字段4") = "4"
.Fields("字段5") = "5"
.Update
.UpdateBatch adAffectAllChapters
End With
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close
删除记录
'删除第一条数据
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
With rst
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "select * from stu", cnnstr
.Delete adAffectCurrent
.Update
.UpdateBatch adAffectAllChapters
End With
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close
用SQL选择删除数据
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
With rst
.CursorType = adOpenForwardOnly
.LockType = adLockOptimistic
.Open "select * from stu where 字段1='" & "r" & "'", cnnstr
.Delete adAffectCurrent
.Update
.UpdateBatch adAffectAllChapters
End With
Set Form1.MSHFlexGrid1.DataSource = rst
Next i
rst.Close
cnn1.Close
删除SQL搜索到的多条数据
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
Dim a As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu where 字段1='" & "r" & "'", cnnstr
Do Until rst.EOF
rst.Delete adAffectCurrent
rst.Update
rst.UpdateBatch adAffectAllChapters
rst.MoveNext
Loop
set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close
删除所有数据
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu ", cnnstr
Do Until rst.EOF
rst.Delete
rst.Update
rst.UpdateBatch adAffectAllChapters
rst.MoveNext
Loop
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
编辑记录
修改一条记录
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
Dim a As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu where 字段1= '" & "text1" & "'", cnnstr
rst.Update
rst.Fields("字段1") = Me.Text1.Text
rst.Fields("字段2") = Me.Text2.Text
rst.Fields("字段3") = Me.Text3.Text
rst.Fields("字段4") = Me.Text4.Text
rst.Fields("字段5") = Me.Text5.Text
rst.UpdateBatch adAffectAllChapters
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close
修改多条记录
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
Dim a As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu where 字段1= '" & "高" & "'", cnnstr
Do Until rst.EOF
rst.Update
rst.Fields("字段1") = Me.Text1.Text
rst.Fields("字段2") = Me.Text2.Text
rst.Fields("字段3") = Me.Text3.Text
rst.Fields("字段4") = Me.Text4.Text
rst.Fields("字段5") = Me.Text5.Text
rst.UpdateBatch adAffectAllChapters
rst.MoveNext
Loop
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
liuyufeng 2002-05-20
dim dbdata as database
daryl715 2002-05-20
添加记录
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
With rst
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "select * from stu", cnnstr
.AddNew
.Fields("字段1") = "1"
.Fields("字段2") = "2"
.Fields("字段3") = "3"
.Fields("字段4") = "4"
.Fields("字段5") = "5"
.Update
.UpdateBatch adAffectAllChapters
End With
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close
删除记录
'删除第一条数据
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
With rst
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "select * from stu", cnnstr
.Delete adAffectCurrent
.Update
.UpdateBatch adAffectAllChapters
End With
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close
用SQL选择删除数据
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
With rst
.CursorType = adOpenForwardOnly
.LockType = adLockOptimistic
.Open "select * from stu where 字段1='" & "r" & "'", cnnstr
.Delete adAffectCurrent
.Update
.UpdateBatch adAffectAllChapters
End With
Set Form1.MSHFlexGrid1.DataSource = rst
Next i
rst.Close
cnn1.Close
删除SQL搜索到的多条数据
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
Dim a As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu where 字段1='" & "r" & "'", cnnstr
Do Until rst.EOF
rst.Delete adAffectCurrent
rst.Update
rst.UpdateBatch adAffectAllChapters
rst.MoveNext
Loop
set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close
删除所有数据
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu ", cnnstr
Do Until rst.EOF
rst.Delete
rst.Update
rst.UpdateBatch adAffectAllChapters
rst.MoveNext
Loop
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
编辑记录
修改一条记录
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
Dim a As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu where 字段1= '" & "text1" & "'", cnnstr
rst.Update
rst.Fields("字段1") = Me.Text1.Text
rst.Fields("字段2") = Me.Text2.Text
rst.Fields("字段3") = Me.Text3.Text
rst.Fields("字段4") = Me.Text4.Text
rst.Fields("字段5") = Me.Text5.Text
rst.UpdateBatch adAffectAllChapters
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close
修改多条记录
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
Dim a As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu where 字段1= '" & "高" & "'", cnnstr
Do Until rst.EOF
rst.Update
rst.Fields("字段1") = Me.Text1.Text
rst.Fields("字段2") = Me.Text2.Text
rst.Fields("字段3") = Me.Text3.Text
rst.Fields("字段4") = Me.Text4.Text
rst.Fields("字段5") = Me.Text5.Text
rst.UpdateBatch adAffectAllChapters
rst.MoveNext
Loop
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
With rst
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "select * from stu", cnnstr
.AddNew
.Fields("字段1") = "1"
.Fields("字段2") = "2"
.Fields("字段3") = "3"
.Fields("字段4") = "4"
.Fields("字段5") = "5"
.Update
.UpdateBatch adAffectAllChapters
End With
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close
删除记录
'删除第一条数据
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
With rst
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "select * from stu", cnnstr
.Delete adAffectCurrent
.Update
.UpdateBatch adAffectAllChapters
End With
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close
用SQL选择删除数据
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
With rst
.CursorType = adOpenForwardOnly
.LockType = adLockOptimistic
.Open "select * from stu where 字段1='" & "r" & "'", cnnstr
.Delete adAffectCurrent
.Update
.UpdateBatch adAffectAllChapters
End With
Set Form1.MSHFlexGrid1.DataSource = rst
Next i
rst.Close
cnn1.Close
删除SQL搜索到的多条数据
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
Dim a As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu where 字段1='" & "r" & "'", cnnstr
Do Until rst.EOF
rst.Delete adAffectCurrent
rst.Update
rst.UpdateBatch adAffectAllChapters
rst.MoveNext
Loop
set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close
删除所有数据
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu ", cnnstr
Do Until rst.EOF
rst.Delete
rst.Update
rst.UpdateBatch adAffectAllChapters
rst.MoveNext
Loop
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
编辑记录
修改一条记录
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
Dim a As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu where 字段1= '" & "text1" & "'", cnnstr
rst.Update
rst.Fields("字段1") = Me.Text1.Text
rst.Fields("字段2") = Me.Text2.Text
rst.Fields("字段3") = Me.Text3.Text
rst.Fields("字段4") = Me.Text4.Text
rst.Fields("字段5") = Me.Text5.Text
rst.UpdateBatch adAffectAllChapters
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close
修改多条记录
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
Dim a As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu where 字段1= '" & "高" & "'", cnnstr
Do Until rst.EOF
rst.Update
rst.Fields("字段1") = Me.Text1.Text
rst.Fields("字段2") = Me.Text2.Text
rst.Fields("字段3") = Me.Text3.Text
rst.Fields("字段4") = Me.Text4.Text
rst.Fields("字段5") = Me.Text5.Text
rst.UpdateBatch adAffectAllChapters
rst.MoveNext
Loop
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
luckyjeery 2002-05-20
ADO！！！谢谢！
daryl715 2002-05-20
你要用什么方式呢
比如说ADO？ODBC？还是？
比如说ADO？ODBC？还是？
数据库优化！！！sos 我现在做一个关于数据库优化的东西。 请问：如何在程序中实现这个优化。就是对语法树的优化，如何用语句实现！ 我用的是vb，！我用sql 建的库！！ 如果不知道，给我回查询优化的代码网址！！！ sos
一个小小编译问题!!!我明天就要毕业答辩了......各位大虾SOS.SOS.SOS~~ 我编译出程序了，是.EXE文件,可在其他机子上还是不能运行 我原来以为是没有安数据库ACCESS但后来装了ACCESS还是不行,说什么"部件'MSADODC.OCX'或其附件之一不能正常注册:一个文件丢失或无效" 只能在我编程序的那台...
vb----sos! 用vb编个小程序，要求:运行后，在输入框输入的内容保存至sql2005的数据库中！ 请高手求助！ 数据库的名字:LIU 表的名字:ID 表有两列，第一列为NAME，第二列为TEL，数据类型是nvarchar(255) 我要的结果是： 在vb设计...
SOS！！！我的VB程序编写好了，但不知道该怎么做成安装程序！急救！急救！ 我用VB编写了一个简单的数据库处理软件，做成安装程序后有10多M，吓我一跳。后来去掉一些dll后，剩下3M多，做成安装程序后，又在装有同样操作系统的不同机器上的安装后，不是什么“运行时错误'430'，类不支持自动化...
sos!!关于打包后vb无法正常打印的问题,请各位大虾救救急!! 我在vb环境下调试的时候,可以实现正常的打印预览,但在打完包后... 还有为什么在调试的时候,数据库 的内容变了,可是打印预览却不能立刻更新,必须先退出程序,再重进一遍才能正常预览, 请大家帮帮忙,4号我要交差呀!!谢谢了
SOS!紧急求助,版主帮我啊! 我用的是vb+sql server 2000做的网络数据库程序. 有多个客户端,每个客户端都可以向数据库添加记录. 当一个客户端添加一条记录到数据库以后,会在本客户端软件的网格控件中实时的显示出来. 但是别的客户端的网格控件...
SOS！SOS！SOS!！SOS！ 高手请进 SQL Server 存储过程返回结果集 在SQL Server2000中写了一个存储过程，先用SELECT INTO语名将多个数据表连接查询后生成一个局部临时表#T1， 然后再用Select 语句对临时表进行分组统计，想将分组统计的多行记录结果用ADO的方式返回到VB中，并在卓面...
SOS！就快交系统了，还有个问题，急！（有关.RTF等） 大家帮帮忙,如下： 我做了一个题库系统，题内容字段采用ACCESS的MEMO型存储。题中图片利用RICHTEXTBOX读入库中。公式利用调用EQUATION 3.0在RICHTEXTBOX内录入。 我想调用WORD，以实现编辑预览试卷。可题内容字段中...
SOS！！！ACCESS高手请帮忙！！！SOS！！！ 小子愚笨，被拦路虎吓住了：（ 我的毕业设计是给一个公司开发MIS系统，现在在财务方面卡了壳：我用ACCESS 2000加VB6做的系统，现在想实现凭单打印的功能，可是在VB里无法实现，而在 ACCESS里我又不会编程，好惨啊~~~...
sos!新建ASP.NET WEB 服务问题 我在新建ASP.NET WEB 服务时弹出一个警告对话框： 已成功创建web，但在试图配置此web的应用程序时发生错误。如果没有应用程序根，web项目可能无法 正确操作。返回的错误是： 该错误可能是因为执行该操作的访问权限...
sos:关于在win NT操作系统中运行VB 程序的问题 在win NT中，进行VB编程时，发现当声名变量为DATE时，win NT的时间格式 为"yyyy-mm-dd 上午 hh:mm:ss",且数据库中也对应的定义，但对数据库进行 有关时间查询或插入等操作时不能进行，提示操作中的时间格式不对。...
sos! 救命大送分了！（三层的最基本的问题） 明天就要交任务说明了，大家帮帮我吧。 有谁能告诉我三层结构各层都实现什么功能？... 本来我还是知道一些的，可是被几个高手指导晕了，所以想听听大家的意见。 只要您能回答我的问题，我把我全部的分都给你。
SOS!!!怎么在局域网内搜索到可用的SQLSERVER服务器呀! VB6.0 SERVER7.0 我想用程序实现SQL SERVER中的某个数据库保存到另一台SERVER上,我怎么样才能知道在这个局域上是否还有别的SERVER, 请高手指教,谢了!
SOS：高手们快来帮帮我，编译完了发布不了，怎么办呢？？很郁闷了！！！ 我是用VB自带的打包程序，可执行文件在本机上运行良好，但 1、在另一台环境一样（有VB，加补丁SP6）的机子上运行，数据库连接、操作都正常。但调用临时文件打印时报 运行错误，‘76’未找到路径 2、在环境不一样的...
我在CSDN参与的3000个帖子 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题 望高手帮忙！ 5：呵呵，来推荐一下我的网站，本站提供大量当今流行的免费的音乐和免费电影，...
[microsoft][odbc sql server driver][named pippes]没有发现指定的sql server. sos! 在本本上用vb写了一个连接远程sql数据库的小程序,运行正常，拷贝到其它机器后运行时提示以上错误。why? 连接数据库代码如下： Dim Conn As New ADODB.Connection Dim strconn As String strconn = "driver=SQL ...
SOS，急，谢！ VB（6.0）程序通过ADO(2.0)对象连接到SYBASE(11.9.2)数据库。 表中某字段(Fieldxxx)类型为:decimal(10,2). 若记录集是服务器端的游标,则有以下问题出现: 字段Fieldxxx 从右至左的0会被去掉.例如:若字段Fieldxxx=100,...
stmpMail的使用，以及数据库的访问问题？？（UP）的有分。---SOS，，高分清出 问题二： use master go exec sp_grantlogin 'NT AUTHORITY\NETWORK SERVICE' go use asp.net go exec sp_grantdbaccess 'NT AUTHORITY\NETWORK SERVICE' go 后，用asp.net访问数据库，还是出现（其中...
~~关于数据库转换后的问题 ~sqlserver 转 access ~~100 我写程序已开始用sql2000的数据库 但为了要求转换access 数据库 我程序代码： sqlstr = "SELECT YYBH AS 医院编号, GMSFHM AS 公民身份证,MZH AS 门诊号 from sos where YYBH " like '%" & jisel_Text1.Text & "%'" ...
使用Windbg和SoS扩展调试分析.NET程序 ）、 不是我舍不得 - .NET里面的Out Of Memory 看到很多人在问如何分析dump，所以就写下了这篇短文,抛砖引玉。 一、安装 DebuggingToolsforWindows: 从以下 Microsoft 网站下载 DebuggingToolsfo...
36招搞定电脑一切难题!!! 1.解决插电即开机问题 现象：有些朋友有关机后断开电源板电源的习惯，可是却常常被一个问题困扰，就是电源板一通电，计算机就自动开机了，Power键形同虚设。解决：有些主板在BIOS设置的“PowerManagementSetup”中，...
SOS)还有没有哪位高手可以彻底的帮助我解决我的迫在眉头的紧张问题啊. 我的问题如下: 我用VB开发的一个程序,数据库是SQL7.0,用SETUPFACTORY6.0制作了安装程序. 程序里面用到了datareport和dataEnvirment,运行时候会报错,报表预览不起来,也不能打印.我只好在客户机上安装了VB6.0,可是运行...
VB，SQL serve2000用ODBC连接出现的问题？？？ 用VB做前台，SQL serve2000作为后台数据库 ，用ODBA将其链接。一切该做的都作了，可为什么好总有错误出现呢？ 提示信息是“未发现数据源名称并未置顶默认驱动程序” 该设置的都设置好了呀…… 我真的不明白。。。SOS
(SOS)还有没有哪位高手可以彻底的帮助我解决我的迫在眉头的紧张问题啊. 我的问题如下: 我用VB开发的一个程序,数据库是SQL7.0,用SETUPFACTORY6.0制作了安装程序. 程序里面用到了datareport和dataEnvirment,运行时候会报错,报表预览不起来,也不能打印.我只好在客户机上安装了VB6.0,可是运行...
CSDN回帖得分大全（近两年） √vs2005调用dll的时候Initialize()函数返回错误 [VC/MFC 基础类] 40 ylongwu 05-21 20:486 ylongwu06-28 13:42管理√为什么我创建登陆框之后，然后获取登陆框的数据时候总是出现非法操作！ [VC/MFC 界面] 40 ...
Windows下和程序员相关小工具 .NET Memory Profiler – 可以找出.NET程序中的内存泄露问题，并找出可优化的内存。 .NET Reflector – 查看，导航，搜索.NET汇编中的类的继承关系。 Active Webcam – Webcam 视频监视软件。 ArsClip – 剪贴版...
