数据库貌似已经连接上了vb，，可是为什么数据库上的数据不能显示在框表中捏？？？
具体的代码？
无码无真相！
你把篮球抱在怀里，就能远投得3分？
麻烦各位大虾了啊。。。
Private Sub Comm1_Click()
Dim sqltxt As String
sqltxt = "delete tmpksb"
Set conn = New ADODB.Connection
conn.ConnectionString = "dsn=KS;uid=MICROSOF-45B405;pwd=;"
conn.Open
conn.Execute sqltxt
If condstr = "" Then
sqltxt = "insert into tmpksb select * from ksb "
Else
sqltxt = "insert into tmpksb select * from ksb where " + condstr
End If
conn.Execute sqltxt
conn.Close
DataEnvironment1.Command1 '打开数据源
DataEnvironment1.rsCommand1.Requery '刷新
DataReport1.Show vbModal
DataEnvironment1.rsCommand1.Close
End Sub
代码。。。。代码。。。。拿来我们看下。。。
Private Sub Comm1_Click()
Dim sqltxt As String
sqltxt = "delete tmpksb"
Set conn = New ADODB.Connection
conn.ConnectionString = "dsn=KS;uid=MICROSOF-45B405;pwd=;"
conn.Open
conn.Execute sqltxt
debug.print condstr '看输出什么
If condstr = "" Then
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
