vb資料庫創建資料庫

『壹』 vb 用sql 語句創建資料庫。

啟動VB6.0，新建一個工程,在菜單-工程-引用里選"Microsoft ActiveX Data Objects 2.0 Library",代碼里需要有

dim conn As New ADODB.Connection
定義ADO資料庫對象
conn.ConnectionString = "driver={SQL Server};" & _
"server=" & ServerName & ";uid=" & UserName & ";
pwd=" & Password & ";database=" & DatabaseName & ""
連接數據串
conn.open 連接資料庫
註：ServerName為伺服器名；UserName為用戶名；Password為用戶口令； DatabaseName要登錄的資料庫名，可以為空。
核心代碼如下：
一、建立資料庫
原理：建立資料庫先要初始化一個資料庫設備，然後在此設備上建立資料庫。所有的設備名在系統表"sysdevices"里有記錄，所有的資料庫名在系統表"sysdatabases"里有記錄。在建立之前，最好先查詢這兩個系統表，看名稱是否已經存在。在建立設備之前，還需要的一個物理名和空閑的設備標識號。
初始化設備語法：
DISK INIT NAME="device_name",PHYNAME=
"physical_name",VDEVNO=device_number,
SIZE=numberofblock
說明：這里，NAME是資料庫設備名（一個有效的標識符），PHYNAME(資料庫設備的物理名)是原始的磁碟分區UNIX或外設（vms）名，或者是操作系統的文件名。VDEVNO時資料庫的設備標識號，合法值為1-255，SIZE的單位是2KB的塊，例如1MB（1024KB）時SIZE值為512。
建立資料庫語法：CREATE DATABASE database_name [ON database_device]
說明：database_name是要建的資料庫名，database_device是設備名
要新建立一個資料庫，就需要設備名，資料庫名，物理名和設備號。具體步驟如下：
我們假設用戶要新建立設備dbName，在設備dbName上建立資料庫dbName。
1）得到設備名 bName是用戶給出的設備名；先查詢系統表sysdevices，看用戶給出的設備名dbName是否已經存在，如果此設備名存在，就需要更換一個設備名，因為設備名是唯一的。
sql = "select * from sysdevices
where name=" & dbName & ""
Set rs = conn.Execute(sql)
If Not rs.EOF Then
MsgBox "設備名"" & dbName & ""
已存在！", 16, "請重新輸入名稱"
Exit Sub
End If
2）得到資料庫名。dbName是用戶給出的資料庫名；查詢系統表sysdatabases，看用戶給出的資料庫名dbName是否已經存在，如果此資料庫存在，就需要更換一個資料庫名，像設備名一樣，資料庫名也是唯一的
sql = "select * from sysdatabases
where name=" & dbName & ""
Set rs = conn.Execute(sql) 下面代碼略
3）得到PHYNAME物理名。查詢伺服器上資料庫文件的物理位置serverpath，典型的，我們可以從系統表sysdevices中查詢master(這是SQL Server的主庫名)資料庫的位置，例如G:\MSSQL\DATA\MASTER.DAT，則我們的資料庫可以建在"G:\MSSQL\DATA\"目錄下。
sql = "select name,phyname from sysdevices "
low/16777216為設備號
Set rs = conn.Execute(sql)
然後遍歷記錄對象rs，當name="master"時，取出phyname，
從而可以得到物理位置serverpath =G:\MSSQL\DATA\。
4)得到一個空閑的設備號vdevno。設備號合法值1~255，遍歷這些號，查找出未被使用的空閑設備號,下面程序得到已有的設備號
sql = "select distinct low/16777216
from sysdevices order by low/16777216"
low/16777216為設備號
5）建立資料庫。所需的信息都准備完畢，可以建立資料庫了（註：下面的"" & Chr(34) & ""就是一個"""雙引號,這樣處理後，才能滿足語法要求;資料庫為20M，則dbSize=512*20）
sql = "DISK INIT NAME=" & Chr(34) & ""
& dbName & "" & Chr(34) & ",PHYSNAME="
& Chr(34) & "" & serverpath & "" & dbName
& ".dat" & Chr(34) & ",VDEVNO=" & vdevno
& ",SIZE=" & dbSize & ""
Set rs = conn.Execute(sql) 初始化設備
sql = "CREATE DATABASE " & dbName & "
on " & dbName & "=" & dbSize & ""
註：
第一個dbName是資料庫名，
第二個dbName是設備名
Set rs = conn.Execute(sql)
在設備dbName上建立資料庫dbName
MsgBox "資料庫"" & dbName & ""建在伺服器上
"" & serverpath & "" & dbName & ".dat"，
建立成功！", 64, "成功"

『貳』 在VB中怎樣建立資料庫 然後再與資料庫連接

新建exe工程

菜單-工程-引用

Microsoft ActiveX Data Objects 6.1 Library

Microsoft ADO Ext. 6.0 for DDL and Security

添加模塊conn

粘貼代碼

PubliccatAsNewADOX.Catalog
PublicconnAsNewADODB.Connection
PublicrsAsNewADODB.Recordset
PublicmdbpathAsString

PrivateFunctionGetconn()'連接資料庫
Cl
mdbpath=app.Path'資料庫路徑設置為程序本體根目錄
pstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&mdbpath&"Main.mdb"&";Mode=12;JetOLEDB:DatabasePassword=pdjj888"
conn.Openpstr
conn.CursorLocation=adUseClient
EndFunction
PublicFunctionCl()'斷開資料庫
OnErrorGoToerr
Ifconn.State=adStateOpenThen
conn.Close
Setconn=Nothing
EndIf
err:
EndFunction

PublicFunctionSe(sqlAsString)'執行sql語句
'OnErrorGoToerr
Getconn
conn.Executesql,Se
'err:
EndFunction
PublicFunctionGe(sqlAsString)'查詢
'OnErrorGoToerr
Getconn
rs.Opensql,conn,adOpenDynamic,adLockPessimistic
'err:
'Iferr=3265Then
'Ck"提示","伺服器繁忙,請重試!"
'EndIf
EndFunction

PublicFunctionCatdata()'創建初始資料庫
pstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&mdbpath&"Main.mdb"&";Mode=12;JetOLEDB:DatabasePassword=pdjj888"
DimsqlAsString
IfDir(mdbpath&"Main.mdb")=""Then
cat.Createpstr'創建資料庫
Setcat=Nothing
conn.Openpstr'打開資料庫
'創建商品類型表
sql="CREATETABLEspstyle(lidintprimarykey,stylenameVARCHAR,styltagVARCHAR,FontVARCHAR,styledjint)"
conn.Execute(sql)
sql="(1,1)"'自動編號
conn.Execute(sql)
'創建商品表
sql="CREATETABLEsps(sidintprimarykey,lidint,spnameVARCHAR,sptagVARCHAR,spdjint,spdatedate)"
conn.Execute(sql)
sql="(1,1)"'自動編號
conn.Execute(sql)
'創建獎券類型表
sql="CREATETABLEjzstyle(jidintprimarykey,jznameVARCHAR,jztagVARCHAR,jzslint,jzjlDouble,jzdatedate)"
conn.Execute(sql)
sql="(1,1)"'自動編號
conn.Execute(sql)
'創建獎券表
sql="CREATETABLEjzs(zidintprimarykey,jznameVARCHAR,jztagVARCHAR,jzdatedate)"
conn.Execute(sql)
sql="(1,1)"'自動編號
conn.Execute(sql)
Cl
EndIf
EndFunction

『叄』 如何用vb創建資料庫 求高手

1.在界面上點接外接程序
2.可視化數據管理器
3.新打開的界面點文件
4.新建
5.選MICSOFT ACCESS
6.選擇一個MDB按自己要求進行表的設置

『肆』 如何用VB建立資料庫

1、首先點擊打開主菜單欄中的「外接程序」選項。

『伍』 怎樣創建一個資料庫,在VB里

首先你的VB必須是安裝完整的版本!
然後打開VB.點擊 [外接程序->可視化數據管理器-> 就可以打開VisData,然後你就可以用他來新建資料庫,用他來操作你的資料庫.
注意:新建資料庫通常使用的格式是:
文件->新建->Microsoft Access->展開後有2.0和7.0兩個,看你自己喜歡隨便選一個吧!就這樣!還有什麼不懂的請補充問題!

『陸』 vb 中建立資料庫

打開VB6.0 編譯環境
外接程序---可視化數據管理器--文件--新建
這樣就可以建立 常用的各種類型資料庫
新建完 在資料庫窗口~右鍵滑鼠-新建表

『柒』 VB創建資料庫表

一、 創建資料庫：

在DAO中用CreatDataBase方法可以根據用戶需求動態的創建資料庫。這一點在程序中是非常有用的。用戶可以根據要求實時建立資料庫。建立過程如下：

Private Sub Com_creat_Click()
On Error GoTo Err100
CreatDataBase "資料庫名稱.mdb" ，dbLangGeneral
Msgbox "資料庫建立完畢"
Exit Sub
Err100:
MsgBox "不能建立資料庫! " & vbCrLf & vbCrLf & Err.Description, vbInformation
End Sub

這樣，資料庫便在當前默認的路徑下建立了。

二、 創建表與欄位：

建立資料庫後，則需要在該資料庫中建立表，這要用到TableDef 對象。先定義一個TableDef類型的對象，然後用TableDef集合中Append方法將之追加到資料庫當中去。並且同時定義一個Field對象，用CreatFiele的方法創建一個Field對象，向表中添加欄位。例如:

Private Sub Com_table_Click()
On Error GoTo Err100
Dim Defdb As DataBase
Dim NewTable As TableDef
Dim NewField As Field
Set Defdb = Workspaces(0).OpenDatabase (App.path & "\資料庫名稱.mdb" ,0, False)
Set NewTable = DefDataBase.CreateTableDef("表名")
Set NewField = DefTable.CreateField( "欄位名" , dbText ,6) ′創建一個字元型的欄位，長度為6個字元
DefTableFields.Append NewField ′欄位追加
DefDatabase.TableDefs.Append NewTable ′表追加
Msgbox " 表建立完畢 "
Exit Sub
Err100:
MsgBox "對不起，不能建立表。請先再建表前建立資料庫？", vbCritical
End Sub

『捌』 VB中如何創建資料庫，表，欄位

病情分析：
你好，懷孕初期有的有反應有的是什麼反應都沒有的。
指導意見：
你好，一般我們是根據月經是否推遲，然後做個早早孕試驗，祝你好運。

病情分析：
根據您的描述您上述情況屬於懷孕初期了解的問題，一般來說懷孕初期首先出現的應該是月經推遲
指導意見：
如果你的月經推遲超過一周以上還是不能來，那麼就應該考慮是懷孕了，你可以選擇之後就診正規醫院檢查清楚，做個血HCG檢查確定吧

病情分析：
你好，懷孕初期一般有停經，嘔吐，乏力，疲勞等症狀。
指導意見：
建議懷孕早期要適當休息，不要勞累，懷孕初期三個月很重要。

病情分析：
您好，懷孕初期月經期不來潮、常有惡心、嘔吐的感覺、乳房有刺痛、膨脹和搔癢感。容易疲倦，常常會想睡覺，也會出現尿頻。孕初期心理的變化易暴躁或多疑。
指導意見：
您好，注意個人衛生。婦女懷孕後，陰道分泌物增多，外陰部易被細菌感染，要經常清洗，勤洗澡，勤換內褲。注意適當的工作與活動。但強度不宜大，避免劇烈運動，防止受到外傷。注意必要的營養。食物要多樣化，要容易消化和吸收。注意衣著。衣著要柔軟、寬大，不要束腰和穿緊身褲，不要穿高跟鞋。

定期做孕期檢查，以便及時了解胎位和胎兒發育情況。妊娠7個以內每月檢查一次；8-9個月時，應每半個月檢查一次；最後一個月應每周檢查一次。如遇特殊情況，應隨時去醫院檢查。注意護理乳房。妊娠四個月後，每天用溫水及肥皂水均勻擦洗乳房和乳暈，這樣可使乳頭皮膚堅韌。擦洗後可用手指輕擠乳頭，保持暢通。乳頭凹陷者應常用手或拔奶器向外牽拉。定期的B超檢查：那麼，孕期究竟如何做B超檢查才是適宜呢？對於這個問題的回答並非是絕對的，需視孕婦的具體情況而定，一般來講，至少得做3次B超。注意節制性生活。懷孕頭3個月和後3個月要避免性生活。以防宮縮引起流產或早產。孕中期的性生活也應有所節制。注意心理衛生。孕婦的情緒通過內分泌系統直接影響胎兒的生理機能，尤其是在妊娠的最後兩個月。孕婦可以通過溫暖和諧的家庭氣氛，充足的休息、睡眠和健康的文化娛樂來影響、調節自己的不良情緒。

病情分析：
你好，懷孕初期一般容易犯困，容易嘔吐現象發生，胸部會有明顯的漲疼反映。
指導意見：
有些人心情會變的很糟糕，脾氣會變的很暴躁。

病情分析：
你好，很高興為你解答，懷孕後一般開始會有早孕反應，比如惡心，厭油膩等，心理上會有懷孕的欣喜，怕宮外孕的焦慮等
指導意見：
這都是正常的，規律孕檢，平常心，均衡飲食，順其自然就好。

病情分析：
您好，懷孕兩三個月左右就會出現妊娠反應，在心理上會因為體內雌激素反應而產生一些改變，只要用良好的心態面對就可以了。
指導意見：
懷孕初期會出現尿頻、食慾改變等症狀，在飲食上盡量不要挑食，可以選擇優質蛋白的食物，還要注意營養的攝入，青菜水果都是必不可少的。另外懷孕期要適量運動，有助於分娩，也有利於產後的恢復。

『玖』 vb中如何用代碼創建SQL資料庫和數據表

是什麼資料庫,access還是sql
server
?首先需要連接資料庫執行SQL語句,