اضافه و جستجو در ويژال بيسيك به مشكل بر خوردام.( كار بانكي)

pesare_matin2005 · Jun 17, 2004

من يه سيستم مينويسم كه بانك من اكسس هستش.
من در ويژال بيسيك براي اضافه كردن ركورد و جستجو يك ركورد خاص مشكل دارم.
ارتباط برنامه با بانك از طريق اي.دي.او هستش .
اگه ميشه به من كمك كنيد كه چطوري ميتونم يك ركورد جديد اضافه كنم و همچنين كد جستجو يك ركورد خاص را براي من ارسال كنيد.
راستي من قبل از كلمه كليدي (Add new ) - و (Move last ) ميگذارم : (جواب نداد )

قبل از كلمه كليدي ( Add New) - و( refresh )گذاشتم : (جواب نداد )

به من بگيد چه كار كنم.

و همچنين چه كار كنم كه بتونم محتويات يك (تكست باكس ) را با محتويات (تي بل ) در بانكم چك كنم و نيز انرا تغيير دهم ( براي تغيير رمز ورود به برنامه نياز دارم )
با تشكر

a_mollaei · Jun 18, 2004

براي Connection:

کد:

Dim Cnn As New ADODB.Connection

private Sub DbOpen()
Dim StrConnection As String
Dim dpath As String
dpath = App.Path
If Right(dpath, 1) &lt;> "\" Then
    dpath = dpath + "\"
End If
dpath = dpath &amp; "data\dbmain.mdb"

StrConnection = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &amp; dpath &amp; ";Uid=Admin;PWD=;"
Cnn.ConnectionString = StrConnection
Cnn.Open
End Sub

البته بايد توي Perference كتابخانه Microsoft Activex Data Object 2.5 رو اضافه كني.
بعد براي جستجو و به روز رساني مي توني هم با SQL كار كني و هم بدون اون.

کد:

Dim RsAdd As New ADODB.Recordset
Dim SqlAdd As String

SQLAdd = "SELECT * FROM Tbl1 WHERE Fld1='" &amp; Trim(TxtOne.Text) &amp; "'"

';:::     OR 
';:::     SQLAdd = "SELECT * FROM Tbl1 WHERE Fld1=2551"

DbOpen

RsAdd.Open SQLAdd, Cnn, adOpenKeyset, adLockOptimistic

RSAdd.AddNew
RSAdd("One") = Trim(TxtOne.Text)

RSAdd.Update
RSAdd.Close
Set RSAdd = Nothing

براي اضافه كردن با SQL:

کد:

Dim SQLAdd As String

DBOpen

SQLAdd="INSERT INTO Table1 (Fld1,fld2) VALUES ('" &amp; txt1.text &amp; "','" &amp; Txt2.Text &amp; "' ) WHERE Fld1='Hello'"

';:::   OR 
';:::   SQLAdd="INSERT INTO Table1(Flad1,Fld2) VALUES ('Hello','1256')"
cnn.Execute SQLAdd