ارسال دهد به بانک اکسس

[khz-web1]

آقا چطوری یک فرم درست کنم که اطلاعات را به بانک اکسس ارسال کنه ؟

به زبان ویژوال بیسیک و بانک اکسس

:ناراحت: به من کمک کنید

[marzban]

Dim con As New OleDb.OleDbConnection
Dim cmd As New OleDb.OleDbCommand
con.ConnectionString =Provider=Microsoft.Jet.OLEDB.4.0;Data Source='Your Bank Address.mdb'
If con.State = ConnectionState.Closed Then con.Open()
Dim str_conn As String
str_conn = "insert into news_table(news_title,news_text,news_enter_date) "
str_conn = str_conn + " values('" + txt_title.Text.Trim + "','" + txt_des.Text.Trim + "','" + Now.ToString + "')"
cmd.CommandText = str_conn
cmd.CommandType = CommandType.Text
cmd.Connection = con
cmd.ExecuteNonQuery()
If con.State = ConnectionState.Open Then con.Close()
titr_lbl.Text = "خبر جدید ثبت شد"


فقط یک Table بنام news_table ایجاد کنید که 3 فیلد با نامهای news_title و new_text و news_enter_date بصورت text و یک فیلد code با خصوصیت autonumber
2 تا هم textbox با نامهای txt_title و txt_des توی فرمت بگذار.
کد بالا رو هم داخل دکمه مورد نظرت بذار
موفق باشی

[khz-web1]

آقا واقعا ازت ممنونم میشه این تکه کدی هم که به من دادی توضیح هم بدی مثلا بگی چه توابعی به کار بردی این توابع چطوری کار میکنه و....... که خودت بیشتر میدونی

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

[marzban]

به نظرم دوست عزیز بهتر است کمی با VB.net آشنا بشی .بهتر است اول کمی با کتابها شروع کنی چون با این روش دیرتر یاد میگیری
البته امید وارم از حرفم ناراحت نشده باشی
موفق باشی

[khz-web1]

بله دوست عزیز درست میگید من چون قبلا با ویژوال بیسیک کار کردم از شما تقاضا کردم این کد را بدید و من الان در وی بی دات نت مشکل اساسی دارم چون به اندازه 180 درجه با ویژوال بیسیک تحت ویندوز تفاوت داره

[marzban]

Dim con As New OleDb.OleDbConnection تعریف یک کانکشن
Dim cmd As New OleDb.OleDbCommand تعریف یک کامند
con.ConnectionString =Provider=Microsoft.Jet.OLEDB.4.0;Data Source='Your مقدار دهی کانکشن با آدرس فیزیکیBank Address.mdb'
If con.State = ConnectionState.Closed Then con.Open() باز کردن یک کانکشن
Dim str_conn As String تعریف یک رشته
str_conn = "insert into news_table(news_title,news_text,news_enter_date) " اجرای دستور اس کیو ال و مقدار دهی به آن
str_conn = str_conn + " values('" + txt_title.Text.Trim + "','" + txt_des.Text.Trim + "','" + Now.ToString + "')"
cmd.CommandText = str_conn مقدار دهی کامند جهت اجرای دستور
cmd.CommandType = CommandType.Text تعریف نوع کامند
cmd.Connection = con تعریف کانکشن کامند
cmd.ExecuteNonQuery() اجرای دستورات
If con.State = ConnectionState.Open Then con.Close() بستن کانکشن و اتمام کار
titr_lbl.Text = "خبر جدید ثبت شد"