Mahmoud.Afrad دستت درد نکنه
خیلی کمک کرد
کد هایی که توی سایتی که گفته بودی رو کلا به هم ریختم و اصلاح کردم
و کد ها رو قرار میدم اگه کسی مایل بود استفاده کنه
اینا برای #C
//======================== اینجا بررسی میکنه که نام تیبل هست یا نیست و اگر نباشه هم کالمن های گفته شده رو میسازه و هم خود تیبل رو
//======================== و اگر هم نام تیبل موجود بود خطا میده و کالمن رو هم نمیسازه
{
OleDb.OleDbConnection CON = new OleDb.OleDbConnection("Provider=Microsoft.Jet.OLED B.4.0; Data Source=" + Application.StartupPath + "\\DATA.mdb");
CON.Open();
OleDb.OleDbCommand cmd = new OleDb.OleDbCommand();
cmd.Connection = CON;
cmd.CommandText = "create table Users(UserID int,Fname nvarchar(50),Lname nvarchar(50),Email nvarchar(30),Pass nvarchar(60))";
try {
cmd.ExecuteNonQuery();
cmd.Connection.Close();
} catch (Exception ex) {
MsgBox("تیبل یافت نشد");
}
if (CON.State == ConnectionState.Open) {
CON.Close();
}
}
//================================================== = اینجا در صورت وجود نام تیبل کالمن ها رو میسازد و اگه تیبل نبود خطا میده
//==== از
//====try
//=== استفاده شده برای اینکه اگر کالمن ی بود خطا نده و ایجاد نکنه
{
OleDb.OleDbConnection con = new OleDb.OleDbConnection("Provider=Microsoft.Jet.OLED B.4.0; Data Source=" + Application.StartupPath + "\\DATA.mdb");
con.Open();
OleDb.OleDbCommand cmd = new OleDb.OleDbCommand();
// OleDbCommand cmd = New OleDbCommand()
cmd.Connection = con;
try {
cmd.CommandText = "alter table Users ADD dddddd4d int NOT NULL ";
} catch (Exception ex) {
}
try {
cmd.CommandText = "alter table Users ADD ssss4s nvarchar(60) ";
} catch (Exception ex) {
}
try {
cmd.CommandText = "alter table Users ADD moradi488 nvarchar(32) ";
} catch (Exception ex) {
}
try {
cmd.ExecuteNonQuery();
con.Close();
} catch (Exception ex) {
//MsgBox("تیبل یافت نشد")
}
if (con.State == ConnectionState.Open) {
con.Close();
}
}
اینا هم برا vb
'======================== اینجا بررسی میکنه که نام تیبل هست یا نیست و اگر نباشه هم کالمن های گفته شده رو میسازه و هم خود تیبل رو
'======================== و اگر هم نام تیبل موجود بود خطا میده و کالمن رو هم نمیسازه
Dim CON As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLED B.4.0; Data Source=" + Application.StartupPath + "\DATA.mdb")
CON.Open()
Dim cmd As New OleDb.OleDbCommand
cmd.Connection = CON
cmd.CommandText = "create table Users(UserID int,Fname nvarchar(50),Lname nvarchar(50),Email nvarchar(30),Pass nvarchar(60))"
Try
cmd.ExecuteNonQuery()
cmd.Connection.Close()
Catch ex As Exception
MsgBox("تیبل یافت نشد")
End Try
If CON.State = ConnectionState.Open Then
CON.Close()
End If
End Sub
'================================================= == اینجا در صورت وجود نام تیبل کالمن ها رو میسازد و اگه تیبل نبود خطا میده
'==== از
'====try
'=== استفاده شده برای اینکه اگر کالمن ی بود خطا نده و ایجاد نکنه
Dim con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLED B.4.0; Data Source=" + Application.StartupPath + "\DATA\BASE\SAL0001\DATA.mdb")
con.Open()
Dim cmd As New OleDb.OleDbCommand ' OleDbCommand cmd = New OleDbCommand()
cmd.Connection = con
Try
cmd.CommandText = "alter table Users ADD dddddd4d int NOT NULL "
Catch ex As Exception
End Try
Try
cmd.CommandText = "alter table Users ADD ssss4s nvarchar(60) "
Catch ex As Exception
End Try
Try
cmd.CommandText = "alter table Users ADD moradi488 nvarchar(32) "
Catch ex As Exception
End Try
Try
cmd.ExecuteNonQuery()
con.Close()
Catch ex As Exception
'MsgBox("تیبل یافت نشد")
End Try
If con.State = ConnectionState.Open Then
con.Close()
End If