1樓：網友
你連線哪個資料庫？
vb連sql2000資料庫 關於修改使用者密碼的問題
2樓：手機使用者
使用者的許可權需要在sql server2000 中實現，你可以給使用者賬號密碼那個表單新增乙個許可權欄位，欄位型別為text型就行，可以設定兩個許可權：普通使用者、系統管理員。然後你可以在vb的登入表單上新增乙個combobox控制項，然後將其中的內容定為 普通使用者 和 系統管理員，然後你就去判斷如果賬號、密碼、使用者身份都符合的話就允許進入系統如果有任意乙個不符合的話就不讓進入系統。
當然你也可以不用combobox控制項，直接根據賬號+密碼去判斷使用者許可權。
你可以製作兩個改密碼錶單，第乙個給系統管理員用，他可以改所有使用者的賬號密碼，第二個給普通使用者使用，他只可以更改自己的賬號密碼。如果使用者登入時被判斷為系統管理員時就提供給他第乙個改密碼的表單，如果是普通使用者就提供第二個表單，第乙個表單不顯示。
sqlstr = select * from loginaccount
mydata (sqlstr)
if = trim(rs!password) then
if = then
你首先選擇了loginaccount資料庫表中的所有記錄（select * from loginaccount 之後沒有where...這就導致了你將所有記錄的password欄位都給update了，解決辦法是：使用兩個變數記錄登入時使用的賬號密碼，然後在select語句中寫上where account=那個賬號的變數 and 密碼= 那個密碼的變數。
vb設定使用者名稱如何連線到資料庫或sql資料庫中
3樓：金華阿呆
一般使用ado進行資料庫連線。首先連線資料庫，然後讀資料庫中的使用者分類表，重新整理身份列表。然後根據使用者輸入的使用者名稱和密碼，到使用者資訊表中進行比對，如果全部符合則進入查拍爛詢介面，如果使用者名稱不符，則彈出警告框舉螞「使用者名稱正賀埋不存在！，如果使用者名稱符合密碼不符合，則彈出警告框「密碼不正確！」
如何用vb連線sql資料庫做登入
4樓：
vb使用ado資料庫可以分為有源資料庫和無源資料庫，即是否使用了dsn資料來源，如下例：
1、在連線資料庫前首先要在vb選單中「工程」-「引用」從中選擇 microsoft activex data objects library和 microsoft activex data objects recordset 兩個元件，這是在連線資料前所必做的工作。
2、接下來定義ado的連線物件，如下所示：
set conn = new
set rs = new
第一種方法採用的是無源的資料庫連線方法。
driver=;server=jszx3-11;uid=sa;pwd=;database=wzc"
select 使用者名稱，密碼 from login where 使用者名稱='" & trim( &"' and 密碼='" & trim( &"'", conn, adopenstatic, adlockreadonly, adcmdtext
if = true and then
m = msgbox("請重新登入", vbexclamation)
elseend if
這是第二種方法連線資料庫的方法，這一種方法是採用有源的方法與資料庫連線的方法，**如下所示：
set conn = new
set rs = new
dsn=login;uid=sa;pwd=;"
select 使用者名稱 from login", conn, adopenstatic, adlockreadonly, adcmdtext
dim i as string
for t = 0 to val( -1
i = trim("使用者名稱").value)
inext t
vb使用者登入介面,使用者登陸的**,連線sql server資料庫的
5樓：隆承紅
vb登陸程式源**。
你可以這樣做建乙個模組在裡面輸入下列。
public conn as
sub main()
set conn = new
provider=;persist security info=false;" _
user id=sa;password=sa;initial catalog=您的資料庫名；data source="
登入介面。end sub
再在登入介面「確定」下寫入如下**：
private sub command1_click()
if = "" then
msgbox "使用者名稱不能為空！", vbokonly + vbinformation, "友情提示"
exit sub
end if
if = "" then
msgbox "密碼不能為空！", vbokonly + vbinformation, "友情提示"
exit sub
end if
dim strsql as string
strsql = "select * from users where users_name='" & trim$( "' and password='" & trim$( "' "
dim str as new
set str = new
aduseclient
strsql, conn, adopenstatic, adlockreadonly
with str
if .state = adstateopen then .close
open strsql
if .eof then
try_times = try_times + 1
if try_times >= 3 then
msgbox "您已經三次嘗試進入本系統，均不成功，系統將自動關閉", vbokonly + vbcritical, "警告"
unload me
elsemsgbox "對不起，使用者名稱不存在或密碼錯誤 ！", vbokonly + vbquestion, "警告"
end if
elseunload me
登入進入的另乙個介面。
end if
end with
end sub
vb連線sql資料庫做使用者登入視窗
6樓：網友
我的密碼登陸窗原始碼：你自己改改就可以了。原始碼絕對可用。
private sub cmdok_click()
dim sql as string
dim rs_login as new
dim conn as new
provider=; data source=" & "\"
if trim( = "" then
msgbox "使用者名稱不能為空，請重新輸入！"
else sql = "select * from 使用者表 where user_id='" & trim( &"'"
rs_ sql, conn, adopenkeyset, adlockpessimistic
if rs_ = true then
msgbox "沒有這個使用者，請重輸入！", vbokonly + vbexclamation, ""
else username =
if trim(rs_ = trim( then
unload me
圖書館理系統。show
else msgbox "密碼不正確，請重輸入！", vbokonly + vbexclamation, ""
end if
end if
end if
cnt = cnt + 1
if cnt = 3 then
unload me
end if
end sub
private sub form_load()
cnt = 0
end sub
vb更改窗體名稱
vb執行時無法更改窗體的name屬性，只能在設計時更改。窗體的caption 屬性是可以在執行時更改的。caption 屬性 窗體 確定顯示在 form 或 mdiform 物件的標題欄中的文字。當窗體為最小化時，該文字被顯示在窗體圖示的下面。控制項 確定顯示在控制項中還是附在控制項之後的文字。me...
更改使用者登入或登出方式，電腦如何更改使用者登入或登出方式？
你是否安裝過安全認證，或者指紋識別之類的安全軟體。有可能使這些軟體要求系統的登陸或登出方式是固定。所以你必須首先了解你安裝了什麼軟體是的系統無法更改。然後解除安裝掉這些軟體。這些安全軟體裡面也有可能有一些對於登陸或登出方式的設定。你可以在軟體裡面看一看是否能夠更改。你在administrator使用...
b站怎麼更改使用者名稱，怎麼更改使用者名稱
最早可以自定義，我的使用者名稱就是三個字母，17年可以通過遊客註冊b站遊戲，比如fgo，可以自定義名字，那時候最少4位字母。現在不行了，你如果通過主站註冊，使用者名稱就是郵箱或者手機號，遊戲遊客會隨機分配數字，凡事要趁早。使用者名稱不能改，只能改暱稱。點選頭像，賬號，我的資訊，改一次6個硬幣。怎麼更...