PDA

نسخه کامل مشاهده نسخه کامل : لطفاً كمك كنيد



amir_hooty2001
26-11-2006, 18:58
نمي تونم ركورد جديد رو از طريق يك صفحه وب وارد بانك بكنم يعني به روز نميشه
لطفاً رلهنمائيم كنيد .

hoseinquest
26-11-2006, 23:36
زبان برنامه نویسیت چیه؟
تو چه محیطی هستی؟ بانک اطلاعاتیت چیه؟ اینجوری که نمیشه جواب داد جونم

amir_hooty2001
27-11-2006, 17:13
زبان برنامه نويسي vb.net هستش + sql server 2000

meh_ak
30-11-2006, 10:01
از كد زير مي تواني استفاده كني ولي با Access است. در واقع یک متغیر از نوع ردیف همان جدول معرفی کن و سپس آن را Add کن
Dim con1 As System.Data.Odbc.OdbcConnection
Dim conStr1 As String
conStr1 = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & TextBox1.Text.Trim
con1 = New System.Data.Odbc.OdbcConnection(conStr1)
con1.Open()
Dim dba1 As System.Data.Odbc.OdbcDataAdapter
dba1 = New System.Data.Odbc.OdbcDataAdapter("Select * From tbl_Bazdid", con1)

Dim ds1 As DataSet
ds1 = New DataSet
Dim i, j As Integer

'' ''copy tbl_Bazdid
Dim newR2 As GazGhozareshMain2000DataSet.tbl_BazdidRow
newR2 = Me.GazGhozareshMain2000DataSet.tbl_Bazdid.Newtbl_B azdidRow
For j = 0 To ds1.Tables(0).Rows.Count - 1
For i = 1 To GazGhozareshMain2000DataSet.tbl_Bazdid.Columns.Cou nt - 1
newR2.Item(i) = ds1.Tables(0).Rows(j).Item(i)
Next
Me.GazGhozareshMain2000DataSet.tbl_Bazdid.Addtbl_B azdidRow(newR2)
Me.Tbl_BazdidTableAdapter.Update(Me.GazGhozareshMa in2000DataSet.tbl_Bazdid)
GazGhozareshMain2000DataSet.tbl_Bazdid.AcceptChang es()
newR2 = Me.GazGhozareshMain2000DataSet.tbl_Bazdid.Newtbl_B azdidRow

Next