需要連接數(shù)據(jù)庫,你可以用access做個小型數(shù)據(jù)庫

創(chuàng)新互聯(lián)公司-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價比灌云網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式灌云網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們,業(yè)務(wù)覆蓋灌云地區(qū)。費用合理售后完善,十載實體公司更值得信賴。
每次系統(tǒng)登錄的時候,根據(jù)用戶名去數(shù)據(jù)庫查詢密碼
/// summary
/// 是否存在該記錄
/// /summary
public bool Exists(string user_id)
{
StringBuilder Sql = new StringBuilder();
Sql.Append("select count(1) from USER_INFO");
Sql.Append(" where USER_ID=:user_id");
OracleParameter[] parameters = {
new OracleParameter(":user_id", OracleType.VarChar,20)
};
parameters[0].Value = user_id;
object obj = cn.Runsa.Data.OracleHelper.ExecuteScalar(ConfigurationManager.ConnectionStrings["oraclethree"].ToString(), CommandType.Text, Sql.ToString(), parameters);
if (obj == null || obj.ToString() == "0")
{
return false;
}
else
{
return true;
}
1:Access,建立數(shù)據(jù)庫,數(shù)據(jù)庫命名為Database1.mdb。
(注意:這里的后綴是MDB,如果Access是2007版本的,保存的時候要另存為2003版本的才行,因為,VB不直接支持07版的accdb后綴格式!)
2:數(shù)據(jù)庫建立后就進(jìn)入了數(shù)據(jù)表界面,可以輸入數(shù)據(jù)了,輸完以后CRRL+S保存,輸入表名,這里表名為test,ok,準(zhǔn)備工作搞定。
菜單中找到工程→部件→勾選 ,
Microsoft ADO Data Control 6.0
Microsoft Hierarchical Flexgrid Control 6.0
勾選后左側(cè)工具欄里就多了兩個控件即 ADODC控件和MSHFlexGrid控件。
選擇 ADODC控件和MSHFlexGrid控件,放在窗體的合適位置
設(shè)置ADODC控件的屬性:
右鍵窗體內(nèi)ADODC1控件
1:ADODC屬性頁→通用→選擇使用連接字符串→點擊生成→選擇Microsoft Jet 4.0 OLE DB Provider 點擊下一步→選擇之前準(zhǔn)備好的數(shù)據(jù)庫→點擊測試連接,顯示測試成功則ok,確定。
2:ADODC屬性頁→記錄源→命令類型選擇2-adcmdtable,表或存儲過程名稱選擇之前建立的數(shù)據(jù)表test,點擊確定,ADODC屬性設(shè)置完成。
設(shè)置MSHFlexGrid控件的屬性:
VB右側(cè)屬性表里,找到datasource,選擇adodc1
就完事了
做不到,access數(shù)據(jù)庫是本地數(shù)據(jù)庫,不支持網(wǎng)絡(luò)訪問,建議你換成sql server或者mysql之類的數(shù)據(jù)庫。
注:如果一定要遠(yuǎn)程訪問access也不是不行,有兩種辦法,一個是服務(wù)器如果跟你在同一個局域網(wǎng),可以把數(shù)據(jù)庫文件夾共享出來,當(dāng)做共享文件訪問。另一種是在那臺服務(wù)器上裝個sql server數(shù)據(jù)庫,sql server可以創(chuàng)建出鏈接數(shù)據(jù)庫鏈接到那個access.
有這樣的?我沒見過,孤陋寡聞了.試試"控制面板-用戶帳戶-選擇登陸和注銷選項",把"使用歡迎屏幕"的"勾"去掉...
你每次取出的是表中的首條記錄,當(dāng)然只能用首條記錄登陸了!
Dim name, password As String
name = TextBox1.Text
Dim com As New OleDb.OleDbCommand("select * from denglu where name='" name "'", conn)
Dim dr As OleDb.OleDbDataReader
conn.Open()
dr = com.ExecuteReader
dr.Read()
password = dr.GetString(1)
If TextBox3.Text = password Then
mesbox("成功!")
Else
msgbox("失敗")
End If
dr.Close()
conn.Close()
這種情況下,效率極不好!你能理解什么意思就行了!否則將你的程序改完了!
網(wǎng)站題目:vbnet登錄系統(tǒng),vbk登錄系統(tǒng)
本文地址:http://chinadenli.net/article15/dsicgdi.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供Google、響應(yīng)式網(wǎng)站、微信公眾號、App開發(fā)、云服務(wù)器、網(wǎng)站內(nèi)鏈
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)