+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة السي شارب C#.NET (http://vb4arb.com/vb/forumdisplay.php?fid=175)
+--- قسم : قسم اسئلة C#.NET (http://vb4arb.com/vb/forumdisplay.php?fid=176)
+--- الموضوع : [C#.NET] عايز اشغل الكود ده على ال #c (/showthread.php?tid=20209)
عايز اشغل الكود ده على ال #c - MOSTAFA.KAMEL - 30-04-17
قواعد بيانات بس الكود vb.net عايزو يشتغل فى الc#
كود :
Sub LoadCategory()
Try
sqlstr = "Select Id,VideoCategory From tblCategory"
da = New OleDbDataAdapter(sqlstr, con)
ds = New DataSet
'
ds.Clear()
da.Fill(ds, "tblCategory")
'
ComboBox1.Items.Clear()
ComboBox1.DataSource = ds.Tables("tblCategory")
ComboBox1.ValueMember = "id"
ComboBox1.DisplayMember = "VideoCategory"
Catch ex As Exception
If ex.Message.ToString.ToLower.Contains("cannot open database it may not be a database that your application recognizes") Then
MsgBox("حدثت مشكلة فى البرنامج و جارى تحميل ملف حل المشكلة الرجاء تيطيبة بعد اكتمال التحميل و عدم غلق البرنامج الا مع اكتمال التحميل", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "خطأ")
My.Computer.Network.DownloadFile("https://download.microsoft.com/download/2/4/3/24375141-E08D-4803-AB0E-10F2E3A07AAA/AccessDatabaseEngine.exe", Application.StartupPath & "\AccessDatabaseEngine.exe")
'كدة هيحمل الملف اللى هيصلح الرسالة التانية جنب البرنامج
IO.File.Open(Application.StartupPath & "\AccessDatabaseEngine.exe", IO.FileMode.Open)
ElseIf ex.Message.ToString.ToLower.Contains("the microsoft.ace.oledb.12.0 provider is not registered on the local machine")
MsgBox("حدثت مشكلة فى البرنامج و جارى تحميل ملف حل المشكلة الرجاء تيطيبة بعد اكتمال التحميل و عدم غلق البرنامج الا مع اكتمال التحميل", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "خطأ")
My.Computer.Network.DownloadFile("https://download.microsoft.com/download/2/4/3/24375141-E08D-4803-AB0E-10F2E3A07AAA/AccessDatabaseEngine.exe", Application.StartupPath & "\AccessDatabaseEngine.exe")
IO.File.Open(Application.StartupPath & "\AccessDatabaseEngine.exe", IO.FileMode.Open)
End If
End Try
End Sub
Sub LoadVideoName(ByVal Value As Integer)
Try
sqlstr = "Select Id,VideoName From tblVideo Where CategoryId = @CategoryId"
da = New OleDbDataAdapter(sqlstr, con)
'
da.SelectCommand.Parameters.Add(New OleDbParameter("@CategoryId", Value))
'
If ds.Tables.Contains("tblVideo") Then
ds.Tables("tblVideo").Clear()
End If
'
da.Fill(ds, "tblVideo")
'
ComboBox2.DataSource = ds.Tables("tblVideo")
ComboBox2.ValueMember = "id"
ComboBox2.DisplayMember = "VideoName"
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Sub LoadSubVideo(ByVal Value As Integer)
Try
sqlstr = "Select Id,SubVideo,LinkVideo From tblSubVideo Where VideoId = @VideoId"
da = New OleDbDataAdapter(sqlstr, con)
da.SelectCommand.Parameters.Add(New OleDbParameter("@VideoId", Value))
'
If ds.Tables.Contains("tblSubVideo") Then
ds.Tables("tblSubVideo").Clear()
End If
'
da.Fill(ds, "tblSubVideo")
'
ListBox1.DataSource = ds.Tables("tblSubVideo")
ListBox1.ValueMember = "LinkVideo"
ListBox1.DisplayMember = "SubVideo"
Catch ex As Exception
MsgBox(ex.Message)
End Try
End SubRE: عايز اشغل الكود ده على ال #c - محمد كريّم - 30-04-17
الحل في هذا الموضوع
محول أكواد دوت نت C# و VB
RE: عايز اشغل الكود ده على ال #c - Easy4ever - 01-05-17
قمت بتحويل لك الكود إلى C# ولاكن التحويل ليس 100% لاني لا أملك المثال الذي تستخدمه
ستجد فقط أخطاء طفيفه فقط لا تذكر تستطيع تعديلها اثناء إضافتك لها في مثالك
الكود الأول
PHP كود :
private void LoadCategory()
{
try
{
sqlstr = "Select Id,VideoCategory From tblCategory";
da = New OleDbDataAdapter(sqlstr, con);
ds = New DataSet;
ds.Clear();
da.Fill(ds, "tblCategory");
ComboBox1.Items.Clear();
ComboBox1.DataSource = ds.Tables("tblCategory");
ComboBox1.ValueMember = "id";
ComboBox1.DisplayMember = "VideoCategory";
}
catch (Exception ex)
{
if (ex.Message == "cannot open database it may not be a database that your application recognizes")
{
MessageBox.Show("حدثت مشكلة فى البرنامج و جارى تحميل ملف حل المشكلة الرجاء تيطيبة بعد اكتمال التحميل و عدم غلق البرنامج الا مع اكتمال التحميل","خطأ",MessageBoxButtons.OK,MessageBoxIcon.Information);
var client = new System.Net.WebClient();
client.DownloadFile("https://download.microsoft.com/download/2/4/3/24375141-E08D-4803-AB0E-10F2E3A07AAA/AccessDatabaseEngine.exe", Application.StartupPath + "\\AccessDatabaseEngine.exe");
//كدة هيحمل الملف اللى هيصلح الرسالة التانية جنب البرنامج
System.IO.File.Open(Application.StartupPath + "\\AccessDatabaseEngine.exe", System.IO.FileMode.Open);
}
else if (ex.Message == "the microsoft.ace.oledb.12.0 provider is not registered on the local machine")
{
MessageBox.Show("حدثت مشكلة فى البرنامج و جارى تحميل ملف حل المشكلة الرجاء تيطيبة بعد اكتمال التحميل و عدم غلق البرنامج الا مع اكتمال التحميل","خطأ",MessageBoxButtons.OK,MessageBoxIcon.Information);
var client = new System.Net.WebClient();
client.DownloadFile("https://download.microsoft.com/download/2/4/3/24375141-E08D-4803-AB0E-10F2E3A07AAA/AccessDatabaseEngine.exe", Application.StartupPath + "\\AccessDatabaseEngine.exe");
System.IO.File.Open(Application.StartupPath + "\\AccessDatabaseEngine.exe", System.IO.FileMode.Open);
}
}
}
الكود الثاني
PHP كود :
private void LoadVideoName(int Value)
{
try
{
sqlstr = "Select Id,VideoName From tblVideo Where CategoryId = @CategoryId";
da = New OleDbDataAdapter(sqlstr, con);
da.SelectCommand.Parameters.Add(New OleDbParameter("@CategoryId", Value));
if (ds.Tables.Contains("tblVideo"))
{
ds.Tables("tblVideo").Clear();
}
da.Fill(ds, "tblVideo");
ComboBox2.DataSource = ds.Tables("tblVideo");
ComboBox2.ValueMember = "id";
ComboBox2.DisplayMember = "VideoName";
}
catch (Exception ex)
{
MessageBox.Show(ex.Message);
}
}
الكود الثالث والأخير
PHP كود :
private void LoadSubVideo(int Value)
{
try
{
sqlstr = "Select Id,SubVideo,LinkVideo From tblSubVideo Where VideoId = @VideoId";
da = New OleDbDataAdapter(sqlstr, con);
da.SelectCommand.Parameters.Add(New OleDbParameter("@VideoId", Value));
if (ds.Tables.Contains("tblSubVideo"))
{
ds.Tables("tblSubVideo").Clear();
}
da.Fill(ds, "tblSubVideo");
ListBox1.DataSource = ds.Tables("tblSubVideo");
ListBox1.ValueMember = "LinkVideo";
ListBox1.DisplayMember = "SubVideo";
}
catch (Exception ex)
{
MessageBox.Show(ex.Message);
}
}
بالتوفيق
RE: عايز اشغل الكود ده على ال #c - MOSTAFA.KAMEL - 01-05-17
تفضل المثال
مفيش اخطاء ولكن مش بيجيب البيانات من القاعدة عند تشغيل البرنامج
RE: عايز اشغل الكود ده على ال #c - WAEL ABED - 06-05-17
هل مازلت تحتاج لتحويل الكود ؟
RE: عايز اشغل الكود ده على ال #c - MOSTAFA.KAMEL - 07-05-17
شكرااااااااااااااااااااااااااااااااااااااااااااا