你的做法是不可取的,数据库中的数据不能直接打印在窗体中,这样数据是没有阅读价值的。
另外你的代码只能在窗体打印字符串 "seletfrom chanpinxinxi" 不会显示数据的。
核心还是写sql语句把,比如创建的表(信息表)结构为
ID,时间,出发站,到达站对应的sql语句可以写为
"select
from
信息表
where
出发站=
&
text1text
&
and
到达站=
&
text2text
&
"然后使用ADO建立数据库连接,执行这个sql语句就好了,可以将查询到的记录集绑定到datagrid上,会自动显示的,只不过这样显示效果一般。
'试试,子查询后面加一个别名t:
mesql = "select top 5 from ( select top " & sqltop & " from " & Ph & ") t where 用户名='1'"
动态生成语句查询sql数据库内所有表,通常用 语句组合链接串。
如果是已经明确的表,可以用 参数方式变更。
如果是针对不同的表,自己拼合sql语句吧。
VBnet数据库连接的语句,网上太多了。
我是这样做的:
Dim ConnectionString As String = _
"Provider=MicrosoftJetOleDb40;_DatacSource = AppPath+\tempmdb"
Dim myconn As OleDbConnection = New OleDbConnection()
myconnConnectionString = ConnectionString
Dim strcom As String = "select form 通讯录"
OleDbConnection1Open()
Dim strdele As String="DELTEL 表 WHERE 姓名='MMM'"
Dim mycommand As OleDbCommand = New OleDbCommand(strdele, myconn)
mycommandExecuteNonQuery() '从数据库中删除记录
DataSet1Tables("通讯录")Rows(mybindPosition)Delete() '逻辑删除
DataSet1Tables("通讯录")AcceptChanges()
OleDbConnection1Close()
在VB6中可用ADO及DATAGRID控件,用如下语句可更灵活:
Private Sub Form_Load()
Text1 = ""
With Adodc1
Adodc1ConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=E:\db1mdb;Persist Security Info=False"
Adodc1RecordSource = "select name from b1 order by name"
Adodc1Refresh
DataGrid1Refresh
End With
End Sub
Private Sub Text1_Change()
Adodc1ConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=E:\db1mdb;Persist Security Info=False"
Adodc1RecordSource = "select name from b1 where name >='" & Text1 & "' order by name"
Adodc1Refresh'对查询更新
DataGrid1Refresh
End Sub
数据库用VB6编程语言,对新手而言,如何用好ADODC控件和DATAGRID控件相当重要。上面的原代码基于ADODC控件和DATAGRID控件的灵活应用。具体做法:
新建工程时选数据工程,此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。
然后在FORM1窗体中添加ADODC控件和DATAGRID控件,将DATAGRID1的属性DATASOURCE选ADODC1,打开ADODC1控件属性页使用连接字符串,选生成,在提供者选项中ACCESS数据库选MICROSOFT jet 40 OLE DB Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串,注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本(SQL)编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。
SQL查询语言主要结构为:
Select 查询字段 from 表名 Where 查询条件语句 [排序语句或分组语句]
查询字段必须分别用(西文)逗号分开或就用一个号代替,上述查询中排序语句建议最好应用。
SQL查询语言如有错程序运行时告诉你出错,作相应改动即可。本人一般先按上述连接,SQL用"SELECT FROM TabelName"作调试,无问题,用一个按钮孔件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着,以便放着以后使用。然后删去ADODC1孔件,再添加ADODC1控件再添其他内容。
以上不知是否说清楚?SQL查询语言多写多用就会熟练,以上供提问者参考。
以上就是关于VB查询sql数据库的所有内容并且打印在窗体上全部的内容,包括:VB查询sql数据库的所有内容并且打印在窗体上、如何在VB中通过两个文本框查询SQL数据库、VB 查询SQL数据库指定范围(5到10行)的数据等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)