vb用ado连接sql数据库(vb与sql数据库连接)

vb.net连接sql数据库(vbnet连接sql数据库获取某字段)

ImportsSystem.Data

ImportsSystem.Data.OleDb

MoleMole1

PublicFunctionMdbMytab(ByValstr_selectAsString)AsDataTable

Dimconn_mdbAsNew("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=mdb.mdb")

DimcmdAsNew(str_select,conn_mdb)

DimdaAsNew(cmd)

DimmytbAsDataSet=NewDataSet

da.Fill(mytb,0)

MdbMytab=mytb.Tables(0)

conn_mdb.Close()

EndFunction

EndMole

以上为模块代码

以下为窗体代码：

ImportsSystem.Data

ImportsSystem.Data.OleDb

PublicClassForm1

PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load

DimmytbAsDataTable=MdbMytab("select*from表1")

.DataSource=mytb

ComboBox1.="姓名"

ComboBox1.DataSource=mytb

EndSub

EndClass

vb怎么执行sql语句

先是定义一个字符串变量，然后把你要写的SQL语句赋给它。这时如果要把一些VB控件里的数据加进去也一样就是一个字符串联接而以，唯一要注意的是标点符号的使用如：' 这个符号，因为很多时候要用到这个，我碰到好多人都是这里出错了。例如：Dim strsql As String
strsql = "select * from TblSystemData"
If dh.Text <> " " Then '单号
strsql = strsql & " where ChrCode like " & "'" & dh.Text & "'"
End If
当然你也可以把之一个它移到前面去。但我是单独放出来，这样更清楚一点。
接着是执行了。这个你可以看一下二楼的。例如：rst3.Open strsqlm con1_offer, adOpenKeyset, adLockOptimistic, adCmdText

下面分享相关内容的知识扩展：

VB连接另外一台电脑sql2008数据库出现该登录名来自不收信任的域，不能与windows身份一起使用？

VB6.0发布的软件，通过无线网络连接到同一个无线路由器下的其他电脑上，数据库选用sql2008r2，数据库使用混合模式登录。IP地址后加,1433。仍然错误。当数据库选择为本机电脑登录时，能正常连接。

由以下几个原因：

数据库引擎没有启动 有两种启动方式：(1)开始->程序->Microsoft SQL Server 2005->SQL Server 2005外围应用配置器,在打开的界面单击"服务的连接的外围应用配置器",在打开的界面中找到Database Engine,单击"服务",在右侧查看是否已启动,如果没有启动可单击"启动",并确保"启动类型"为自动,不要为手动,否则下次开机时又要手动启动；(2)可打开:开始->程序->Microsoft SQL Server 2005->配置工具->SQL Server Configuration Manager,选中SQL Server 2005服务中SQL Server(MSSQLSERVER) ,并单击工具栏中的"启动服务"按钮把服务状态改为启动； 

进行远程连接时,是否已允许远程连接.   SQL Server 2008在默认情况下仅限本地连接.我们可以手动启用远程连接.在上面之一种方式中,找到Database Engine,单击"远程连接",在右侧将"仅限本地连接(L)"改为"本地连接和远程连接(R)",并选中"同时使用TCP/IP和named pipes(B)".[b]3.如果是远程连接,则还要查看连接数据库的语句是否正确,登录账户是否正确,密码是否正确等.

如何用vb向sql数据库存取照片 更好有事例 谢谢

在VB中存取数据库中的图片

2001-07-05· ·史美康 ··vbeden.com

一、 数据库的设计

数据库可以采用微软的Access97或者SQL Server来进行，首先新建一张表，取名为Table，添加三个字段，分别是：姓名 Char型（SQL Server中）文本型（Access中）；编号Char型（SQL Server中）文本型（Access中）；照片image型（SQL Server中）OLE对象（Access中），设计好后存盘。为了可以进行远程调用，我们采用ODBC的 *** 进行，双击打开控制面板里的ODBC数据源,点“系统DSN”选项卡，按“添加”按钮选择对应的数据源驱动程序Access的＊.mdb或者SQL Server，依照添加向导加添加数据源，下面就可以开始程序的编写了。

二、 程序的编写

运行VB，新建一个工程。本程序采用ADO控件和动态链接库访问数据库，需要加入ADO的运行库，单击“工程\引用”菜单，出现引用对话框，选择Microsoft ActiveX Data Objects2.0 Library并确定。

添加一个Form，四个Label控件，两个TextBox控件，一个PictureBox控件，一个ADODC控件，三个CommandButton控件，一个CommandDialog控件，如果ADODC和CommandDialog控件没有出现在工具框上，请单击菜单“工程\部件”。点“控件”选项卡，在其中选中Microsoft ADO Data Control 6.0(OLEDB)和Microsoft Common Dialog Control 6.0两项按“确定”按钮。

下面是以上各个控件的一些属性：

Form1.MaxButton=False
Label1.Caption=姓名：
Label2.Caption=编号：
Label3.Name= ResName
Label3.BackColor= ＆H80000009＆
Label3.BorderStyle=1－Fixed Single
Label3.DataField=姓名
Label3.DataSource= AdoCtr
Label4.Name= ResNumb
Label4.BackColor= ＆H80000009＆
Label4.BorderStyle=1－Fixed Single
Label4.DataField=编号
Label4.DataSource= AdoCtr
Text1.Name= Names
Text2.Name= Numb
CommonDialog1.Name= CDlg
Adodc1.Name=AdoCtr
CommonButton1.Name=PreView
CommonButton1.Caption=预览
CommonButton2.Name=Save
CommonButton2.Caption=保存
CommonButton3.Name= Update
CommonButton3.Caption=更新
PictureBox1.Name= PicBox
PictureBox1.AutoSize=False
PictureBox1.AutoRedraw=False
PictureBox1.DataField=照片
PictureBox1.DataSource=AdpCtr

下面是程序代码：

′此工程需有Microsoft ActiveX Data Object 2.1 Library(msado15.dll)

Dim Constr As String ′ODBC路径
Dim FileName As String ′图片文件名
Const BLOCKSIZE = 4096 ′每次读写块的大小
Dim ADOCon As New ADODB.Connection ′ADODB Connection对象
Dim ADORst As New ADODB.Recordset ′ADODB Recordset 对象
Dim ADOFld As ADODB.Field ′ADODB Field 对象
－－－－－－－－－－－－－－－－－－－－－－－－
Private Sub SaveToDB(ByRef Fld As ADODB.Field, DiskFile As String)
Dim byteData() As Byte ′定义数据块数组
Dim NumBlocks As Long ′定义数据块个数
Dim FileLength As Long ′标识文件长度
Dim LeftOver As Long′定义剩余字节长度
Dim SourceFile As Long ′定义自由文件号
Dim i As Long ′定义循环变量
SourceFile = FreeFile ′提供一个尚未使用的文件号
Open DiskFile For Binary Access Read As SourceFile ′打开文件
FileLength = LOF(SourceFile) ′得到文件长度
If FileLength = 0 Then ′判断文件是否存在
Close SourceFile
MsgBox DiskFile ＆ 〃 无 内 容 或 不 存 在 !〃
Else
NumBlocks = FileLength \ BLOCKSIZE ′得到数据块的个数
LeftOver = FileLength Mod BLOCKSIZE ′得到剩余字节数
Fld.Value = Null
ReDim byteData(BLOCKSIZE) ′重新定义数据块的大小
For i = 1 To NumBlocks
Get SourceFile, , byteData() ′ 读到内存块中
Fld.AppendChunk byteData() ′写入FLD
Next i
ReDim byteData(LeftOver) ′重新定义数据块的大小
Get SourceFile, , byteData() ′读到内存块中
Fld.AppendChunk byteData() ′写入FLD
Close SourceFile ′关闭源文件
End If
End Sub

－－－－－－－－－－－－－－－－－－－－－－

Private Sub Form_Load()
Constr = 〃DSN=image〃 ′定义ODBC连接
ADOCon.Open Constr ′创建一个连接
ADORst.Open 〃table〃, ADOCon, adOpenDynamic, adLockOptimistic
′打开一个ADO动态集 表名为table
Set AdoCtr.Recordset = ADORst ′将动态集赋给ADO控件
End Sub

－－－－－－－－－－－－－－－－－－－－－－

Private Sub Form_Unload(Cancel As Integer)
′记得关闭打开的数据集，释放资源
ADORst.Close
ADOCon.Close
Set ADORst = Nothing
Set ADOCon = Nothing
End Sub

－－－－－－－－－－－－－－－－－－－－－－

Private Sub PreView_Click()
′显示打开文件的公用对话框，选择需要加入数据库的图片
CDlg.Filter = 〃位图(＊.bmp)|＊.bmp〃
CDlg.ShowOpen
FileName = CDlg.FileName
PicBox.Picture = LoadPicture(FileName) ′预览图片
End Sub

－－－－－－－－－－－－－－－－－－－－－－

Private Sub Save_Click()
ADORst.AddNew ′新增纪录
ADORst(〃姓名〃).Value = Names.Text ′给动态集的之一个字段赋值
ADORst(〃编号〃).Value = Numb.Text ′给动态集的第二个字段赋值
Set ADOFld = ADORst(〃照片〃) ′给ADODB.Field对象赋值
Call SaveToDB(ADOFld, FileName)
′调用子程序，给第三个字段（image）赋值
ADORst.Update
End Sub

－－－－－－－－－－－－－－－－－－－－－－

Private Sub Update_Click()
′重新打开纪录集，刷新纪录
ADORst.Close
ADOCon.Close
Set ADORst = Nothing
Set ADOCon = Nothing
ADOCon.Open Constr
ADORst.Open 〃table〃, ADOCon, adOpenDynamic, adLockOptimistic
Set AdoCtr.Recordset = ADORst
End Sub

vb中Text文本框中的文本内容如何保存进Access数据库中，已经连接上accesd2010

1、在Access或SQL Server中建好表；
2、在开始->运行中输入 odbcad32 打开建立odbc数据源，例如建立SQLserver的数据源，数据源名为:tmpDS，SQLServer的用户口令均为sa，链接的数据库名为tmpDB;
3、编写ASP代码
（1）联系数据库，可建立一个专门的数据库连接文件，如：commsql.inc
文件内容如下：
<% datanet = "DSN=tmpDS;uid=sa;pwd=sa;database=tmpDB"
set conn=server.createobject("adodb.connection")
Conn.Open datanet

Set rs=server.createobject("Adodb.recordset")
%>

(2)编写一般语句
如login.asp

<!--#include file="commsql.inc"-->
<%

dim usa
dim psw

pwd=request("password")
usa=request("username")

'查询用户密码是否正确
sql="select * from UserInfo where UserName='"&usa&"'"
rs.open sql,Conn,1,1
if rs.eof then
rs.close
conn.close
response.write "<script> alert('用户名不存在!');history.back(-1); </script>"
response.end
elseif trim(rs("UserPsd")) <> pwd then
rs.close
conn.close
response.write "<script> alert('密码错误!'); history.back(-1);</script>"
response.end
end if

'记录登录时间
SQL = "Update UserInfo set LastVisitTime='"&now()&"'" where UserName ='"&usa&"'"
rs.open sql,Conn,1,3
'关闭连接
conn.close
%>