‘壹’ 请问:VB和sql是这样连接的 这样实现数据的查询,添加,修改,删除等功能的
MSSQL
Dim
conn
As
New
ADODB.Connection
Dim
rs
As
New
ADODB.Recordset
Private
Sub
Form_Load()
conn.ConnectionString
=
"Provider=SQLOLEDB.1;Persist
Security
Info=False;User
ID=sa;Initial
Catalog=exam;Data
Source=."
'data
source
这里可以打一个英文半角的.
也可以写成IP
conn.Open
sql
=
"select
*
from
exam_dx"
rs.CursorLocation
=
adUseClient
rs.Open
sql,
conn,
adOpenDynamic,
adLockBatchOptimistic
Set
DataGrid1.DataSource
=
rs
End
Sub
技巧(控件连接)
可以先添加一个ado控件右键打开它的属性窗口
点生成这个按钮
选择SQL这一项
下一步
选择服务器名称
(就是你自己机器的名字)
用户名:
"sa"
默认的都是sa
没有密码
如果是ACCESS选择jet
4.0这个
然后选择数据路路径就可以
其他操作一样
测试成功
点确定
完后回到adodc1属性页这里点纪录源
添上要检索的SQL语句
确定
画一个datagrid控件出来
属性页里datasource里绑定adodc1
对着datagrid1右键
选检索字段
->选择是
这样你直接运行就可以看到数据库里的纪录了
反向:adodc1属性里把adodc1使用连接字符串里的东西拷贝出来
Provider=SQLOLEDB.1;Persist
Security
Info=False;User
ID=sa;Initial
Catalog=exam;Data
Source=2F837C57293B43E
把data
source为机器名称、IP或着.都可以
这样你就不用背这句代码
datagrid也可以和二维表的布局一致
‘贰’ 如何用VB实现连接SQL数据库
一是:Public Function ConnectString() _
As String
ConnectString = "Provider=SQLOLEDB;User ID=用户;Password=密码;" & "Data Source=" + IP地址 + ";" & "Initial Catalog=数据库名" _
End Function
二是:
Public Function ExecuteSQL(ByVal SQL _
As String, MsgString As String) _
As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String
On Error GoTo ExecuteSQL_Error
sTokens = Split(SQL)
Set cnn = New ADODB.Connection
cnn.Open ConnectString
If InStr("INSERT,DELETE,UPDATE", _
UCase$(sTokens(0))) Then
cnn.Execute SQL
MsgString = sTokens(0) & _
" query successful"
Else
Set rst = New ADODB.Recordset
rst.Open Trim$(SQL), cnn, _
adOpenKeyset, _
adLockOptimistic
Set ExecuteSQL = rst
MsgString = "查询到" & rst.RecordCount & _
" 条记录 "
End If
ExecuteSQL_Exit:
Set rst = Nothing
Set cnn = Nothing
Exit Function
ExecuteSQL_Error:
MsgString = "查询错误: " & _
Err.Description
Resume ExecuteSQL_Exit
End Function
以上复制到模块“Mole1”中
三是:声明:
Dim ADO1 As Recordset
Option Explicit
Dim MsgText As String
Dim TXTSQL As String
四是:连接
TXTSQL = "select * from 表名"
Set ADO1 = ExecuteSQL(TXTSQL, MsgText)
ADO1.Requery
五是显示字段
Set Text1.DataSource = ADO1
Text1.DataField = "字段"
Set MSHFlexGrid1.DataSource = ADO1
‘叁’ VB连接SQL问题
这个你最好用ADO而不是ODBC,如果用ODBC你有没有在控制面板中配置好ODBC数据?
‘肆’ VB连接SQL数据库做用户登录窗口
把你的登录代码贴出来让大家帮你参考参考
‘伍’ VB连接SQL
问题补充:
“我想知道相对地址连接~~是SQL
移到的机子上不装SQL那怎么办??”
1、SQL数据库连接必须是服务器,不用地址,因为在安装SQL
Server
2000
后,你的数据库地址已经确定;
2、在一般情况下不安装是不可以的,对于Access数据库现在的操作系统有其驱动,而没有SQL的,除非使用网络,例如局域网。
SQL
SERVER
2000
数据库代码比较简单,无非数据库连接语句不同,其他和Access数据库没有大的区别。
如果“程序要移动到其他机子上”,移动到的机子上必须同样安装SQL
SERVER
2000
数据库,而且服务器名称、数据库名称必须和原服务器名称、数据库名称相同,如果有数据库密码,必须保持一致。
下面是SQL数据库连接代码,请参考:
Public
conn
As
New
ADODB.Connection
conn.ConnectionString
=
"driver={SQL
Server};server=服务器名称;uid=sa;pwd=密码;database=数据库名称"
conn.Open
‘陆’ vb如何连接sql数据库
1、打开代码窗口,添加引用:Imports System.Data.SqlClient。
‘柒’ vb怎样连接SQL
http://..com/question/124849874.html
http://hi..com/%C2%B7%C4%CF%C6%BD/blog/item/19f7c803f1a9b080d43f7c9b.html
‘捌’ 如何VB连接SQL
用adodc和datagrid控件
‘玖’ 如何使用VB连接数据库(SQL)还有两个窗口之间的连接…
网络 vb连接数据库字符串