مثال نمونه برای بانک Access

[ebrahimhoze]

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

[ClaimAlireza]

protectedvoid newsSend_Click(object sender, EventArgs e)
{
int a = Upload_pic();
if (a == 1)
{
try
{
OleDbConnection con = newOleDbConnection(String.Format("provider = microsoft.jet.oledb.4.0 ; data source = {0}", Server.MapPath("~") + @"\App_Data\data.mdb"));
con.Open();
OleDbCommand cmd = newOleDbCommand("insert into tb_forum (ndate,subject,body,operation,photopath) values (@ndate,@subject,@body,@operation,@photopath)", con);
cmd.Parameters.AddWithValue("@ndate", lbldate.Text);
cmd.Parameters.AddWithValue("@subject", tboxsubject.Text);
cmd.Parameters.AddWithValue("@body", tboxbody.Text);
cmd.Parameters.AddWithValue("@operation", lbltemp.Text);
cmd.Parameters.AddWithValue("@photopath", lbltemp2.Text);
cmd.ExecuteNonQuery();
con.Close();
GridView1.DataBind();
tboxbody.Text = "";
tboxsubject.Text = "";
lblresult.Visible = true;
lblresult.ForeColor = System.Drawing.Color.Blue;
lblresult.Text = "گه¢گیی ¤§ی§ ں êیهçی¢ ں©«ںé گ©§ی§.";
}
catch (Exception ex)
{
lblresult.Visible = true;
lblresult.ForeColor = System.Drawing.Color.Red;
lblresult.Text = ex.Message.ToString();
}
}
}


موفق باشی...

[khz-web1]

با وی بی دات نت می خوایم

[ClaimAlireza]

برو توی این سایت

http://www.codechanger.com/

زحمت بکش کد بالا رو تبدیل کن!!!!!

[khz-web1]

Function newsSend_Click(ByVal sender As Object, ByVal e As EventArgs) As protectedvoid
Dim a As Integer = Upload_pic()
If a = 1 Then
Try
Dim con As OleDbConnection = newOleDbConnection([String].Format("provider = microsoft.jet.oledb.4.0 ; data source = {0}", Server.MapPath("~") + "\App_Data\data.mdb"))
con.Open()
Dim cmd As OleDbCommand = newOleDbCommand("insert into tb_forum (ndate,subject,body,operation,photopath) values (@ndate,@subject,@body,@operation,@photopath)", con)
cmd.Parameters.AddWithValue("@ndate", lbldate.Text)
cmd.Parameters.AddWithValue("@subject", tboxsubject.Text)
cmd.Parameters.AddWithValue("@body", tboxbody.Text)
cmd.Parameters.AddWithValue("@operation", lbltemp.Text)
cmd.Parameters.AddWithValue("@photopath", lbltemp2.Text)
cmd.ExecuteNonQuery()
con.Close()
GridView1.DataBind()
tboxbody.Text = ""
tboxsubject.Text = ""
lblresult.Visible = True
lblresult.ForeColor = System.Drawing.Color.Blue
lblresult.Text = "گه¢گیی ¤§ی§ ں êیهçی¢ ں©«ںé گ©§ی§."
Catch ex As Exception
lblresult.Visible = True
lblresult.ForeColor = System.Drawing.Color.Red
lblresult.Text = ex.Message.ToString()
End Try
End If
End Function

'================================================= ======
'Service provided by Telerik (www.telerik.com (http://www.telerik.com))
'Conversion powered by NRefactory.
'Built and maintained by Todd Anglin and Telerik
'================================================= ======

[mp2009]

میشه یه مثال از بقیه دستورات رو هم بزارین

ممنون میشم.