اضافه کردن به دیتابیس با زبان SQL

[Tender]

سلام دوستان

داخل دات نت چجوری میشه به یه بانک اکسس با زبان اس کیو ال اطلاعات اضافه کرد؟

مثل اطلاعات کشیدنه؟چون من اونو یاد دارم ولی اضافه کردنو یاد ندارم

ممنون میشم راهنمایی کنید

[Tender]

دوستان من برای کشیدن اطلاعات از این مدل استفاده میکنم

کد:

Dim strCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\VB.net\Test9\Test9\DataBase\Data.mdb"
Dim Con As New OleDbConnection(strCon)

Dim strCMD As String = "Select Name,Family,***,Age from Dr"
Dim DA As New OleDbDataAdapter(strCMD, Con)

Dim DS As New DataSet

DA.Fill(DS, "Dr")
DataGridView1.DataSource = DS.Tables("Dr")

و برای سرچ کردن از بانک از این کد استفاده میکنم

کد:

If R1.Checked = True Then
AO = "And "
ElseIf R2.Checked = True Then
AO = "Or "
End If
If RM.Checked = True Then
MD = "="
ElseIf RB.Checked = True Then
MD = ">"
ElseIf RBM.Checked = True Then
MD = ">="
ElseIf RK.Checked = True Then
MD = "<"
ElseIf RKM.Checked = True Then
MD = "<="
End If
If CB1.Checked = True Then
A = "Name=" & CH & TextBox1.Text & CH
ElseIf CB1.Checked = False Then
A = ""
End If
If CB2.Checked = True Then
B = AO & "Family=" & CH & TextBox2.Text & CH
ElseIf CB2.Checked = False Then
B = ""
End If
If CB3.Checked = True Then
C = AO & "***=" & CH & ComboBox1.Text & CH
ElseIf CB3.Checked = False Then
C = ""
End If
If CB4.Checked = True Then
D = AO & "Age" & MD & Int(TextBox4.Text)
ElseIf CB4.Checked = False Then
D = ""
End If


Dim strCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\VB.net\Test9\Test9\DataBase\Data.mdb"
Dim Con As New OleDbConnection(strCon)

Dim strCMD As String = "Select Name,Family,***,Age from Dr where " & A & B & C & D & ""
Dim DA As New OleDbDataAdapter(strCMD, Con)

Dim DS As New DataSet

DA.Fill(DS, "Dr")
DataGridView1.DataSource = DS.Tables("Dr")

حالا میخوام به بانکم رکورد اضافه کنم ولی کدشو نمیدونم لطف کنین اگه میدونین بگین

ممنون
برنامه رو میزارم که قشنگ متوجه شین چی به چیه چون اون کدها بدون برنامه یکم گنگه

[HoseinVig]

سلام
1-باید یک oledbconection بسازی و کانکشن استرینکشو مقدار دهی کنی مثل همون کاری که توی کد بالا کردی...
2-یه شی oledbcommand بسازی و دستور sql رو بهش بدی که در اینجا دستور درج هست insert into.....
3-با متد executenonquery شی oledbcommand که ساختی دستور رو روی بانک اجرا کن
دستور sql برای درج اطلاعات :

کد php:

insert into table (field1,field2,...) values(value1,value2,...) 


[Tender]

سلام مهندس

ممنون از لطفتون وکمکتون
ولی این آخر رو متوجه نشدم مهندس من مبتدیم یجور بگو منم متوجه شم
من اینو نوشتم اگه اشتباهه لطف کنین درستش کنین
ممنون

کد:

A = TextBox3.Text
B = TextBox5.Text
C = ComboBox2.Text
D = Int(NUD1.Text)
If A = "" Or B = "" Or C = "" Then
Exit Sub
End If

Dim strCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\VB.net\Test9\Test9\DataBase\Data.mdb"
Dim Con As New OleDbConnection(strCon)

Dim strCMD As String = "insert into Dr (Name,Family,***,Age) values (" & A & "," & B & "," & C & "," & D & ")" & CH

[ajlajlajl]

بعد این تکه ای که نوشتی اینو مینویسی :

کد:

dim cmd as new oledbcommand (strCMD,Con)
Con.open()
cmd.executenonquery()
Con.close()

[Tender]

ممنون مهندس
واقعا کمکم کرد ازتون ممنونم هم شما مهندس ajlajlajl جان هم شما مهندس HoseinVig جان

[amin_r47]

سلام.آقا مشکل منم همین هست ولی متوجه نشدم چیکار کردید.
من می خوام درج اطلاعات کنم داخل بانک accessبا نرم افزار vs.net با زبان vb.من اینکارو با detailsview با کمک detaset انجام میدم.ولی نمی خوام از detailsview استفاده کنم.می خوام به کمک چندتا text.Box ساده درج اطلاعات کنم.ولی هرچی سعی میکنم موفق نمیشم.اگه کمکم کنید واقعا ممنون میشم.

[HoseinVig]

سلام رفیق دمت گرم.یه مشکل برام پیش اومده تو طراحی سایتم با asp.net و این مشکلمو جوابشو تو این سایت کمو بیش پیدا کردم.ولی کامل متوجه نشدم.بزار از اول بگم مشکلمو.
من می خوام درج اطلاعات کنم داخل بانک accessبا نرم افزار vs.net با زبان vb.من اینکارو با detailsview با کمک detaset انجام میدم.ولی نمی خوام از detailsview استفاده کنم.می خوام به کمک چندتا text.Box ساده درج اطلاعات کنم.ولی هرچی سعی میکنم موفق نمیشم.اگه کمکم کنید واقعا ممنون میشم.دمت گرم

سلام
شما این کلماتو جستجو کن راحت مثال گیرت میاد
insert with ado.net+vb.net+access
بفرما :
http://www.codeguru.com/vb/gen/vb_databa...dating.htm
و
http://oreilly.com/catalog/progvbdotnet/.../ch08.html
و
.
.
.
.
.

[amin_r47]

سلام رفیق.آقا دمت گرم خیلی حال دادی.میشه یه سوال دیگه بپرسم؟واقعا خیلی مهم هست برام.
من یک قابلیت در طراحی سایتم ایجاد کردم که کاربران بتونن بانک اطلاعاتی خود را ویرایش کنند.که با دستور sql این کار را با Ado.net انجام دادم.مثلا تکه کد من به این صورت می باشد:
Dim con As OleDbConnection
Dim cmd As OleDbCommand

'"+Dim cmdstring As String =update TBL set uid= '" + TextBox1.Text + "' WHERE b='" + TextBox2.Text
همانطور که ملاحظه می کنید کاربران از طریق textbox1 دارن اطلاعات خود را ویرایش میکنند.
من در اینجا مشکل ندارم.مشکل من اینکه حال شما فرض کنید کاربر بجای استفاده از textbox از یک chekbox استفاده کننه.بانک اطلاعاتی من Access که نام آنTBL می باشد یک فیلد دارد به نام TAEN که detatype آن هم yes/no قرار دادم.حالا می خوام کاربر زمانی که می خواد از طریق chekbox عمل کنه چطوری در Access من اعمال بشه.اگر تیک chekbox را زد در access هم تیک خورده بهشه یا برعکس

[HoseinVig]

فکر کنم توی اکسس مقداری که yes/no میتونه بگیر 0 و 1 هست (no=0,yes=1) اگر نبود True/False رو تست کن (no=false,yes=true) حالا فقط کافیه خاصیت cheked چکباکستو نگاه کنی اگر True بود مقدار True/1 و اگر False بود مقدار False/0 را در فیلد مربوطه ویرایش کن.(اگر هیچ کدوم از این ها نبود بجای 0/1 و True/False همون کلمه Yes/No رو تست کن چون چند سالی میشه که با اکسس کار نکردم درست توی خاطرم نیست)

[Ghoghnus]

زمان طراحی بگو خاصیت chekedرا درج کنه خودش میفهمه جریان چیه!لازم نیست شما yes-no یا ثفر یکش کنید