vb查询sql数据库
"SELECT sno,sco FROM sco WHERE sno='" & text1.text & "'"
因为现在不弄VB6了，所以具体怎么连接的代码我忘了，大概就是如果得到的结果RecordSet是空的，即Bof And Eof，则用户名错误，否则如果规定了用户名不可重复，就有且仅有1条记录，再比较其中的sco与Text2.Text是否相等，是则正确通过，否则密码错误。
‘贰’ VB6.0 如何连接SQL 数据库
你在SQL SERVER中新建一个数据库，然后将这个数据库生成脚本文件，根据情况修改后转存为MASTER下的一个存储过程。至于数据库名和数据文件路径可以做成参数传入，然后在VB中用连到MASTER后执行这个存储过程。
用VB与建立的SQL数据库连接
1.使用ODBC DSN连接字符串
DSN=mySystemDSN;Uid=myUsername;Pwd=myPassword
----------------------------------------------
2.使用无ODBC DSN的连接字符串
(1)标准安全性
Driver={SQL Server};Server=MyServerName;DataBase=myDatabaseName; _
Uid=myUsername;Pwd=myPassword
------------------------------------------------
(2)信任连接(分两种）
1）连接字符串1
Driver={SQL Server};Server=MyServerName;DataBase=myDatabaseName;Uid=;Pwd=；
2）连接字符串2
Driver={SQL Server};Server=MyServerName;DataBase=myDatabaseName;Trusted_Connection=yes
---------------------------------------------------------------------------
(3)连接本地SQL SERVER
Driver={SQL Server};Server=(local);DataBase=myDatabaseName; _
Uid=myUsername;Pwd=myPassword
-------------------------------------------------------------
(4)连接远程SQL SERVER
Driver={SQL Server};Server=xxx.xxx.xxx.xxx; _
Address=xxx.xxx.xxx.xxx,1433; _
Network=DBMMSOCN;DataBase=myDatabaseName; _
Uid=myUsername;Pwd=myPassword
-------------------------------------------------------
3.使用OLEDB PROVIDER FOR SQL SERVER的连接字符串
(1)标准安全性
Provider=SQLOLEDB.1; _
Password=myPassword; _
User ID=myUsername; _
Initial Catalog=myDatabaseName; _
Data Source=MyServerName
-------------------------------------------
(2)信任连接
Provider=SQLOLEDB.1; _
Initial Catalog=myDatabaseName; _
Data Source=MyServerName; _
Integrated Security=SSPI
--------------------------------------
(3)连接到命名实例
Provider=SQLOLEDB.1; _
Initial Catalog=myDatabaseName; _
Data Source=myServerName\myInstanceName; _
Password=myPassword; _
User ID=myUsername
--------------------------------------
(4)连接到本地SQL SERVER
Provider=SQLOLEDB.1; _
Password=myPassword; _
User ID=myUsername; _
Initial Catalog=myDatabaseName; _
Data Source=(local)
-----------------------------------------
（5）连接到远程SQL SERVER
Provider=SQLOLEDB.1; _
Netwprk Library=DBMMSOCN; _
Data Source=xxx.xxx.xxx.xxx,1433; _
Password=myPassword; _
User ID=myUsername; _
Initial Catalog=myDatabaseName;
‘叁’ VB怎么SQL数据库查询问题
Private Sub Command4_Click() '图书查询按钮触发事件
If (Text1.Text = "") And (Text2.Text = "") Then
MsgBox("图书名称或主编不能同时为空，二者请选一个输入进行查询", , "系统提示")
Exit Sub
End If
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim Strcon As String
Dim strSQL As String
'这里无需使用那么多的变量，占内存。
Strcon = "Provider=Microsoft.Jet.OLEDB.4.0;"
Strcon = Strcon & "Data Source=E:\vb\图书书架.mdb;"
Strcon =Strcon & "Jet OLEDB:Database Password="
conn.Open Strcon
'查询连接字符串，你写的实在是太...
strSQL="select * from 图书登记 where 图书名称='" & Trim(Text1) & "' and 主编='" & Trim(Text2) & "'"
rs.open strSQL,conn
If rs.EOF and rs.BOF then
msgbox "查无此书"
Text1=""
Text2=""
Text1.Setfource
else
'你的那个Adodc1出现的实在是有些莫名其妙.
msgbox "查到了"
'在Text3中显示查询到的书籍的ID号，即字段ID的值，以下同理。
Text3=rs.Fields("ID")
Text4=rs.fields("出版社")
Text5=rs.Fields("定价")
end if
'关闭游标
rs.close
'释放游标所占内存
set rs=nothing
'关闭连接对象
conn.close
'释放连接对象所占内存
set conn=nothing
End Sub
'补充：
'数据库查询可以用中文表头，但是最好还是使用英文的。
‘肆’ vb如何连接sql数据库
1、打开代码窗口，添加引用：Imports System.Data.SqlClient。
‘伍’ VB.NET 查询SQL数据库
sql服务器上需要有装oracle的client端(或者类似驱动)
2. 在sqlserver的企业管理器里建一个链接服务器(DBlink)具体方法可以查一下帮助
3.
insert into sqlserver_table
select * from openquery(你建的dblink名称,'oracle的select语句')
openquery的语法可以查帮助出来
注意select语法是跟oracle的，要用引号括起来当字符串，ms要大写
很久之前做过的，希望能帮上，试试看吧：)
另外,虚机团上产品团购,超级便宜
匿名 ??<span class="tm">7-21 02:14</span>
</p>
<div class="b bt2"><div class="bt bg1 ft"><img alt="其他答案" height="16" src="/static/img/ico2.gif" width="16"/>其他答案</div></div>
<p class="ft p1">1. sql服务器上需要有装oracle的client端(或者类似驱动)
2. 在sqlserver的企业管理器里建一个链接服务器(DBlink)具体方法可以查一下帮助
3.
insert into sqlserver_table
select * from openquery(你建的dblink名称,'oracle的select语句')
openquery的语法可以查帮助出来
注意select语法是跟oracle的，要用引号括起来当字符串，ms要大写
很久之前做过的，希望能帮上，试试看吧：)
‘陆’ VB中的SQL查询语句
select
count(icuo)
from
sheet1
where
icuo='0'//这才是统计出为0的个数然后再select
ID
from
sheet1
where
icuo='0'//这是列出为0的全部数据ID
‘柒’ vb.net 中如何使用SQL语句查询数据库
dim
myselectquery
as
string
=
"select
*
from
表1
where
姓名='小强'"
dim
mycommand
as
new
sqlcommand
(myselectquery,
conn)
'建立一个command控件，conn是你的sqlconnection对象
conn.open()'打开数据连接
dim
myreader
as
sqldatareader'定义一个reader用来读数据
myreader
=
mycommand.executereader()'运行你的查询，结果到myreader
if
myreader.read()
then
'如果查到了数据
msgbox(myreader.getstring(0))
'显示第一个字段
end
if
‘捌’ 如何在VB中通过两个文本框查询SQL数据库
核心还是写sql语句把，比如创建的表(信息表)结构为
ID，时间，出发站，到达站对应的sql语句可以写为
"select
*
from
信息表
where
出发站=
&
text1.text
&
and
到达站=
&
text2.text
&
"然后使用ADO建立数据库连接，执行这个sql语句就好了，可以将查询到的记录集绑定到datagrid上，会自动显示的，只不过这样显示效果一般。
‘玖’ VB怎么连接 SQL 数据库
一个简单的方法:
首先,建立程序公共模块输入以下代码:
Public conn As New ADODB.Connection
'全局变量 rst 指针
Public rst As New ADODB.Recordset
'全局调用函数 打开数据库
Public Function openconn()
conn.ConnectionString = "连接信息"
'此连接信息最简单的生成办法:
'在任意窗口下建立一新ADODC控件
'选择控件属性,通用页,使用连接字符串,生成(U)
'利用该向导生成出字符串,然后将该字符串复制到"连接信息"中即可
conn.Open
End Function
'全局调用函数 关闭数据库
Public Function closeconn()
If conn.State = 1 Then
conn.Close
Set conn = Nothing
End If
End Function
然后在窗体文件中可以使用的函数:
打开数据库:openconn
注意:此函数为自定义函数,无参数,定义在公共模块中!
建立数据表连接:Set rst = conn.Execute("select * from 数据表名")
如做登陆页可以这样判断用户名密码:
Text1.Text = RTrim(rst.Fields("id")) And Text2.Text = RTrim(rst.Fields("password"))
注:其中Text1.Text为输入用户名TextBOX Text2.Text为输入密码TextBOX
数据表中 id 为保存用户名 password 为保存密码!此方法为非加密方法!
关闭数据库函数:
closeconn
Set rst = Nothing
注:此两行,必须在打开数据库的情况下使用!并且每打开一次数据库后必须先使用此两句将数据库关闭后才可打开另一数据库表文件!!!!!否则程序报错终止!
添加新数据函数
rst.AddNew
rst("字段名1") = Text1.Text
rst("字段名2") = Text2.Text
rst.Update
删除数据函数
rst.Delete
注:使用此函数前,必须保证数据库指针函数rst指向需删除数据,移动rst指针可以使用函数:rst.MoveNext或rst.MoveLast
更新数据函数
rst.Open "update 数据表名 set 字段1='" + Text1.Text + "',字段2='" + Text2.Text + "' where id='" + Text3.Text + "'", conn, 1, 3
注,其中 where id = 为更新特定数据表的查找!
如果熟悉SQL语句,还可编写出其他方式的查找,这里就不多做介绍了!
‘拾’ 如何在vb中通过两个文本框查询sql数据库
核心还是写sql语句把，比如创建的表(信息表)结构为
ID，时间，出发站，到达站
对应的sql语句可以写为
"select * from 信息表 where 出发站='" & text1.text & "' and 到达站='" & text2.text & "'"
然后使用ADO建立数据库连接，执行这个sql语句就好了，可以将查询到的记录集绑定到datagrid上，会自动显示的，只不过这样显示效果一般。