建立一个DATA控件,一个条件输入框,一个MSFLEXGRID控件和一个COMMAND按扭。
将MSFLEXGRID与DATA控件建立连接,再使用如下程序即可。
Private Sub Command1_Click()
Dim sql1 As String
sql1 = CStr(Text1.Text)
DoSql (sql1)
Data1.Refresh
End SubSub DoSql(sql1)
Dim mysql$
mysql$ = "SELECT "
mysql = mysql & " * from 系别 where id="
mysql = mysql & sql1
Data1.RecordSource = mysql
End Sub
将MSFLEXGRID与DATA控件建立连接,再使用如下程序即可。
Private Sub Command1_Click()
Dim sql1 As String
sql1 = CStr(Text1.Text)
DoSql (sql1)
Data1.Refresh
End SubSub DoSql(sql1)
Dim mysql$
mysql$ = "SELECT "
mysql = mysql & " * from 系别 where id="
mysql = mysql & sql1
Data1.RecordSource = mysql
End Sub
解决方案 »
- listview点击listitem触发itemclick事件后,这个item为什么一直跟着光标了?
- 怎样制作注册控件的可执行文件
- mciSendString("save mySound c:\test.wav")出错!错误代码MCIERR_FILE_NOT_SAVED
- text的颜色..sos sos
- 小问题,请教!工具栏的问题
- 怎样设置picturebox控件的宽度?
- 这种远程访问ACCESS数据庫的方法是否行得通!!!
- 图形学请教
- langzhi:请问如何添加鼠标右键菜单。
- api函数可以对特定磁盘区域进行读写操作吗?
- 一个ado的command问题
- 如何编写像NetAnts,FlashGet一样的“拖放框”
Dim adoConnection as New ADODB.Connection
Dim adoRecordset as New ADODB.Recordset
adoConnection.Open "Data Provider=MSDASQL.1;User ID=;Password =;driver=MySQL;host=localhost;database=test"
adoRecordset.Open "SELECT * FROM TableName",adoConnection