设计师连接数据库 添加:项目----设定使用的组件---设计师 Frm打开时判断数据库是否打开 Private Sub Form_Load() If Not Xtconn.MyConn.State = adStateOpen Then Xtconn.MyConn.Open End If End Sub 3,执行SQL语句: Private Sub Command1_Click() Dim rs As ADODB.Recordset Dim sql As String sql = “select * from student” Set rs = conn.myconn.Execute(sql) If rs.RecordCount > 0 Then Set TDBGrid2.DataSource = rs End If End Sub 不懂来问
如果是做网络版,数据或迸发用户多的话,那简直可以杀人
最好用pb+sql 或 Delphi +sql
添加:项目----设定使用的组件---设计师
Frm打开时判断数据库是否打开
Private Sub Form_Load()
If Not Xtconn.MyConn.State = adStateOpen Then
Xtconn.MyConn.Open
End If
End Sub
3,执行SQL语句:
Private Sub Command1_Click()
Dim rs As ADODB.Recordset
Dim sql As String
sql = “select * from student”
Set rs = conn.myconn.Execute(sql)
If rs.RecordCount > 0 Then
Set TDBGrid2.DataSource = rs
End If
End Sub
不懂来问