菜鸟求助，在VB界面可添加删除数据但SQL里没有数据显示

[qq_37241140]

在VB可视化界面可以添加删除数据但SQL里没有数据显示，里面表都是空的，如下图


下面是代码：
Public fMainForm As frmMain
Public gintSmode As Integer 'for service
Public gintPmode As Integer 'for plane
Public gintAmode As Integer 'for airline
Public gintTmode As Integer 'for customertype
Public gintCmode As Integer 'for customer
Public gintKmode As Integer 'for ticket
Sub Main()
Dim fLogin As New frmLogin
fLogin.Show vbModal
If Not fLogin.OK Then
'Login Failed so exit app
End
End If
Unload fLogin


Set fMainForm = New frmMain
fMainForm.Show
End Sub

Public Function ConnectString() _
As String
'returns a DB ConnectString
'ConnectString = "FileDSN=ticket.dsn;UID=sa;PWD="
ConnectString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=data/ticket.mdb;"
End Function
Public Function ExecuteSQL(ByVal SQL _
As String, MsgString As String) _
As ADODB.Recordset
'executes SQL and returns Recordset
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String

On Error GoTo ExecuteSQL_Error

sTokens = Split(SQL)
Set cnn = New ADODB.Connection
cnn.Open ConnectString
If InStr("INSERT,DELETE,UPDATE", _
UCase$(sTokens(0))) Then
cnn.Execute SQL
MsgString = sTokens(0) & _
" query successful"
Else
Set rst = New ADODB.Recordset
rst.Open Trim$(SQL), cnn, _
adOpenKeyset, _
adLockOptimistic
'rst.MoveLast 'get RecordCount
Set ExecuteSQL = rst
MsgString = "查询到" & rst.RecordCount & _
" 条记录 "
End If
ExecuteSQL_Exit:
Set rst = Nothing
Set cnn = Nothing
Exit Function


ExecuteSQL_Error:
MsgString = "查询错误: " & _
Err.Description
Resume ExecuteSQL_Exit
End Function
Public Sub EnterToTab(Keyasc As Integer)
If Keyasc = 13 Then
SendKeys "{TAB}"
End If
End Sub
Public Function GetRkno() As String
GetRkno = Format(Now, "yymmddhhmmss")
Randomize
GetRkno = GetRkno & Int((99 - 10 + 1) * Rnd + 10)
End Function

[VB业余爱好者]

你连接的是ACCESS数据库(data/ticket.mdb)啊，怎么跑到SQL里面去看结果呢？

[ZHRXJR]

VB中显示数据库记录是需要VB的数据显示控件的，VB不能在SQL中显示数据库记录的。
VB的数据显示控件比较多，各有千秋，比较常用的有 MSHFlexGrid 控件、TreeView 控件、ListView 控件、MSFlexGrid 控件等等。
当然在使用不同控件显示数据库记录是需要显示记录的代码，控件不同代码也不同。
至于什么数据库与控件基本上关系不是很大，就是连接数据库的SQL语句不同而已。
ConnectString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=data/ticket.mdb;"
cnn.Open ConnectString
你的这个路径数据库的语句基本可以，但
rst.Open Trim$(SQL), cnn,adOpenKeyset, adLockOptimistic 中没有发现 SQL 记录集连接的字符串，因此无法打开记录集，也就是无法读取数据表中的记录，更不要说显示记录了。