ساختار رکورد سورس در vb

[amirzazadeh]

سلام
اين يه نمونه كد با ado هستش اميدوارم به دردتون بخوره:

Dim Cn As ADODB.Connection

 Dim rs, rs1 As ADODB.Recordset

Dim Cnxn As ADODB.Connection

Dim strCnxn As String



Set Cnxn = New ADODB.Connection

  

strCnxn = "Provider='SQLOLEDB';Data Source='.';" & _

             "Initial Catalog='DBName';User ID='sa';Password='DBPass';"

    Cnxn.Open strCnxn



Set rs = New ADODB.Recordset



rs.CursorLocation = adUseClient

rs.Open "select * from prescribe", Cnxn, adOpenDynamic, adLockOptimistic, 1



rs.AddNew

.

.

.

rs.Update

[reza2371]

سلام
اين يه نمونه كد با ado هستش اميدوارم به دردتون بخوره:

Dim Cn As ADODB.Connection

 Dim rs, rs1 As ADODB.Recordset

Dim Cnxn As ADODB.Connection

Dim strCnxn As String



Set Cnxn = New ADODB.Connection

  

strCnxn = "Provider='SQLOLEDB';Data Source='.';" & _

             "Initial Catalog='DBName';User ID='sa';Password='DBPass';"

    Cnxn.Open strCnxn



Set rs = New ADODB.Recordset



rs.CursorLocation = adUseClient

rs.Open "select * from prescribe", Cnxn, adOpenDynamic, adLockOptimistic, 1



rs.AddNew

.

.

.

rs.Update

سلام، من خیلی دنبال چنین سورسی بودم؛ ممنونم از توجه شما
با توجه به اینکه من مبتدی هستم چند تا سوال دیگه هم دارم اگر امکان داره راهنماییم کنید
1- اگر در یک فرم هم دستور ذخیره در بانک اکسس باشه و هم ذخیره در بانک sql امکان پذیر هست؟
2- اگر بخوام یه فیلد ( که شناسه مشخص داره) را در بانک sql را ویرایش کنم کد فوق چه تغییری میکنه؟
3- اگر تعداد رکورد بیش از یکی باشه و بخوام همه را یکجا در بانک sql ذخیره کنم چکار باید بکنم؟