1樓:匿名使用者
public shared function db() as sqlconnection
dim constr as string = provider=sqloledb;server=伺服器ip;uid=使用者名稱;pwd=密碼;database=資料庫名"
db = new sqlconnection(constr)
if = 0 then
end if
end function
click...
dim username,password,sql as string
username =
password =
sql = select count(id) from yourtable where username='"username & and password='"password &
dim mycmd as new sqlcommand(sql,db)
if 0 then
login true
else login false
end if
vb連線資料庫問題
2樓:匿名使用者
看看你的資料庫檔案儲存的位置有沒有變化,這是adodc控制項的乙個很大的弊端,你儲存檔案的位置一換就容易出錯。
vb連線資料庫
3樓:阿打
首先如果你用的如果是sqlserver 或者oracle等資料庫的話就可以遠端連線,如果是access就不要折騰了,只要修改連線字串中的路徑就可以了,用ip位址或者網域名稱來定位資料庫的位置,還有就是確保資料庫所在的計算機開啟了資料庫相關網路服務,要不然是怎麼樣也連不上的。如果你們是在乙個區域網就可以用ip來直接訪問,你可以先用視覺化工具測試下能否連線,如果能連線再去修改你的程式的連線字串,會連線本機的話,這個修改你應該也會;如果不在同一區域網,由於現在的adsl上網都沒有固定ip,那就裝個花生殼,再搞個免費網域名稱,這樣就能通過網域名稱訪問你資料庫所在計算機了、、
4樓:匿名使用者
資料庫在本機上嗎。
vb中怎樣連線資料庫
5樓:匿名使用者
可以用odbc資料來源,新增乙個sql的。然後用vb裡面的ado部件和datagrid部件連線。先在拖出的adodc部件右鍵設定屬性,連線資料庫。
再將datagrid連線到adodc就可以看到資料了。
6樓:匿名使用者
dim conn as new '建立乙個物件並例項化。
dim rs as new
"provider=
persist security info=false;data source=" 資料庫路徑(含名稱及字尾名)"
"select 欄位名 from 表名 " where 條件, conn, adopenkeyset, adlockoptimistic
沒有where 則返回所有資料。
do while = false
"欄位名").value'迴圈讀出查詢到的資料。
7樓:匿名使用者
三言兩語真說不清楚。
vb連線資料庫的疑問?
8樓:
private sub listuser()
dim sql1 as string
dim sql2 as string
dim rs1 as new
dim rs2 as new
dim node1 as node
sql1 = select * from deptinfo"
sql1, maindbcon1, adopenkeyset, adlockpessimistic
if > 0 then
for i = 1 to
sql2 = select * from userinfo where userdept='"deptname")
下面的sql改為sql2
sql2, maindbcon1, adopenkeyset, adlockpessimistic
if > 0 then
for j = 1 to
fields("userid"),username"),1)
= true
next j
end if
= true
這裡加一句。
set rs2=nothing
next i
end if
以防萬一,下面再加一句。
set rs1=nothing
end sub
9樓:陳學陽
語法沒有問題!
是你連線的問題,你在連線時加上下面這句**!
你用的記錄集用的是樂觀鎖,有時取不出值來的!
我們學的時候記得老師就說最好不要用recordcount這個屬性!
如果對您有幫助,請記得採納為滿意答案,謝謝!祝您生活愉快!
資料庫和vb 連線問題
10樓:匿名使用者
private sub form_load()
= provider=
path & persist security info=false"
= adcmdtext
= select * from test"
"編號""電單車"
"輛數""車牌號"
= 輛數"= 編號"
= "編號")
do while not
loopend sub
這是我用的乙個連線** 你可以看看。
11樓:匿名使用者
connstr = dsn=myconn"
可以這樣連嗎?使用者名稱和密碼都沒寫啊,肯定不行。
12樓:匿名使用者
機器要裝oracle的客戶端。
vb的語法問題,VB的語法問題
你上面寫的語句可以理解為 if 方法 then 方法 通常在vb語法大全中的 方法 也就是我們理解的乙個可執行的動作.所以應該可以理解為 if 執行乙個叫close的動作 then 執行乙個叫open的動作很明顯,上面的語句有點不順,呵呵,認該這樣寫 if 狀態 true then 執行動作所以,在...
vb程式設計問題,關於VB程式設計的小問題
這個問題你問的比較到位。在vb裡面,子窗體和父窗體之間有乙個選單是否重疊的設定。你可以進行選擇當子窗體最大化是,子窗體的選單是否和父窗體的重疊。焦點,就是當前的活動物件,也就是說,如果有3個文字框,當你把滑鼠點到第二個上時 你輸入的內容就會在第二個顯示,而其他兩個不會有反應,這個時候其實就是第二個是...
VB程式設計新手問題,VB程式設計中的迴圈問題
隨便畫乙個按鈕叫command1,option explicit private q x private sub command1 click command1.caption q int x rnd end sub private sub form load q array 你好 你今年多大 喂 ...
vb的if語句中的問題,關於VB中IF語句中的理解問題
這個就是正確的 if text1.text thenmsgbox 請輸入內容 end if if len text1.text 0 and text1.text 正確內容 then msgbox 請輸入乙個正確內容 end if if text1.text 正確內容 thenmsgbox 通過 en...
vb陣列擷取,vb中陣列元素的提取問題
private sub command1 click dim a as string,ac,ia split text1.text,vbcrlf ac val text2.text if ubound a ac and ac 0 thenfor i 0 to ac 1 text3.text text...