vb60数据库实例

① 怎样在VB6.0里建立数据库

建议下载VB企业版吧 迅雷上搜一下 蛮多的
你也可以用access 来建立数据库

部件--microsoft ado data control
microsoft datagrid control
ado 添加控件后右键属性 点生成 按提示操作 连接数据库
在纪录源 命令文本中 写上 select * from 表名
最后设置 datagrid控件的datasoure属性为 ado

② vb.net 统计时间段内数据库字段金额和

加一个按钮，代码如下：

Imports System.Data.OleDb

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myConn As OleDbConnection = New OleDbConnection '声明并实例化数据库连接对象
Dim myadpt As New OleDbDataAdapter '声明并实例化数据适配器对象
Dim myds As New DataSet '声明并实例化记录集对象

Dim myConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\DB\SJ.mdb" '数据库连接字符串
myConn.ConnectionString = myConnection '设置数据库连接对象的数据库连接字符串属性
myConn.Open() '启动数据库连接

myadpt.SelectCommand = New OleDbCommand '声明数据适配器的查询命令对象
myadpt.SelectCommand.CommandText = "select sum(支出金额) as 支出金额 from zcb where 支出时间 like '" & Text1.Text & "%' " '给数据适配器的查询命令属性赋值
myadpt.SelectCommand.Connection = myConn '设置据适配器与数据库连接对象的连接
myadpt.Fill(myds)
Text13.Text = myds.Tables(0).Rows(0)("支出金额")
End Sub

End Class

③ 求一个vb6.0+sql数据库操作实例

这个貌似我以前写的一个系统初始化的程序

④ 求一个vb6.0+SQL的创建数据库实例

没有用过wb6.0 但应该可一执行SQL语句把
create database dataname
on
(
name='dataname',//库名
filename = 'E:\dataname.mdf'//库路径
)
log on
(
name='dataname_log',//日志文件名
filename = 'E:\dataname_log.ldf'//库路径
)
create table tablename
(
cardid int identity primary key, //设置自动增长列并设为主键
cardname carchar(20) not null check(len(chardname)>6),设置不能为空 并大于六个字符
……
)

⑤ vb6.0+sql的创建数据库实例

本人从来没有使用ADO对象实现过创建数据库的方法。
以前要采用代码创建数据库都是使用Microsoft的DBEngine对象。
使用ADO只进行过数据的操作，最多用来进行用户的管理。
希望那位高手能解决这个问题，本人拜读一下。

⑥ 求vb6.0对Access数据库文件中的数据进行增、删、改和查询操作的一些实例

'先建立一个公共模块
Option Explicit
Public Function GetConnStr() As String
Dim ConnString As String

'连接Access
ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名;Persist Security Info=False"

GetConnStr = ConnString
End Function
Public Function OpenConn(ByRef Conn As ADODB.Connection) As Boolean
'打开数据库连接，连接成功返回true，出错时返回false
Set Conn = New ADODB.Connection
'出错处理
On Error GoTo Error_box
Conn.Open GetConnStr
OpenConn = True
Exit Function
Error_box:
MsgBox "连接数据库失败！请重新连接！"
OpenConn = False
Exit Function
End Function
Public Sub ExecuteSQL(ByVal SQL As String, ByRef msg As String)
'执行SQL语句
Dim Conn As ADODB.Connection
'出错处理
On Error GoTo Error_box
'打开数据库连接
If OpenConn(Conn) Then
Conn.Execute SQL
msg = "操作执行成功！"
End If

Exit Sub
Error_box:
msg = "执行错误: " & Err.Description
Set Conn = Nothing
Exit Sub
End Sub
'*********************************************************************************************************************
'添加数据
Call ExecuteSQL("INSERT INTO 表名称(字段1,字段2,字段N) VALUES ('值1','值2','值N')", msg)
'注意:以上字段值如果为表达式并且是文本类型应采用如此格式:'" & 表达式 &"',如果是数值应为" & 表达式 &"
'删除数据
Call ExecuteSQL("DELETE FROM 表名称", msg)
'修改数据
Call ExecuteSQL("Update 表名称 SET 要修改的字段名='" & Trim(Text1.Text) & "' WHERE 条件='" & 表达式 & "'", msg)
'如:
Call ExecuteSQL("Update G借债 SET 姓名='" & Trim(Text1(0).Text) & "' WHERE 姓名='" & Lbl_str.Caption & "'", msg)

⑦ 求 vb 连接数据库 的实例

简单代码实现：：

<%
dim conn '定义变量 conn
Set Conn = Server.CreateObject("ADODB.Connection") '建立连接对象
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("库的名字.mdb") '打开库

dim rs,sql
set rs=server.CreateObject("adodb.recordset") '建立记录对象
sql="select * from 表的名字"
rs.open sql,conn,3,2 '打开表

rs.addnew
rs("表中数据类型的名字")=request.Form("表单的名字")
rs("表中数据类型的名字")=request.Form("表单的名字")
rs.update

rs.close
set rs=nothing '关闭表

conn.close
set conn=nothing '关闭库

%>

蒙狼建站---您互联网的“诚信”合作伙伴！

⑧ VB6.0连接SQL数据库，并读取某表格的数据出来

'使用ADODB对象，必须先进行对象模型的引用，步骤如下
'通过菜单[工程] -- [引用]，勾选 Microsoft ActiveX Data Object 2.6 Library
'Microsoft ActiveX Data Object 2.7 Library
'Microsoft ActiveX Data Object 2.8 Library
'都可以
代码以及注释如下：
Dim Conn As ADODB.Connection '声明连接数据库对象 -- 用来连接数据库文件，并对数据库以及数据表的操作
Dim Rst As ADODB.Recordset '声明数据记录集对象 -- 用来返回数据记录集，并对记录的操作

Set Conn = New ADODB.Connection '数据库对象的实例化
Set Rst = New ADODB.Recordset '记录集对象的实例化

'二，连接数据库文件
'执行 ADODB.Connection对象的Open方法，完成数据库的连接
Conn.CursorLocation = adUseClient
'连接SQL的字符串格式如下
'"Provider=SQLOLEDB.1;Password=登录SQL的密码;Persist Security Info=True;User ID=SQL数据库实例名;Initial Catalog=数据库名;Data Source=SQL服务器计算机名称"
'你给出的参数，少了最后一个“SQL服务器计算机名称”，下面我用了6个问号，你根据你的具体情况修改
Conn.Open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=Sa;Initial Catalog=2013data;Data Source=??????"

'三，返回记录集
'执行 ADODB.Recordset对象的Open方法，获得记录集
Rst.Open "Select num1,num2 From icitem
", Conn, adOpenKeyset, adLockPessimistic

'将返回的记录集显示到DataGrid1
Set DataGrid1.DataSource = Rst

Set Rst = Nothing '释放记录集对象
Set Conn = Nothing '释放数据库对象

⑨ vb6操作远程sql数据库的实例

可以实现远程的数据库访问。在打开数据源时选择远程的服务器等即可。

⑩ VB 数据库实例

用ADO法（要先引用）
连接：
Dim cn As ADODB.Connection
Set cn=New ADODB.Connection '上两句为声明创建ADO变量（下同）
cn.open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=X;" 'X为数据库路径(加文件名)
cn.Close '关闭数据库
Set cn=Nothing ‘释放数据

读取：
Dim rs As ADODB.RecordSet
Set rs=New ADODB.RecordSet
rs.Open "select * from X1", cn,X2,X3 'X1为表名，cn就是上面连接的cn（下同），X2为数据库游标类型，X3为数据库锁方式（读取方式）
Do While Not rs.EOF
XXXXX '读取数据至程序的代码，自编
rs.MoveNext ’移动到下一条记录
Loop
……
……
…… '关闭…，释放…
Set rs=Nothing
Set cn=Nothing

剩下的网上搜，大把