数据库貌似已经连接上了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
