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

剩下的網上搜，大把