+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] vshost.exe has stopped working (/showthread.php?tid=14107)
RE: vshost.exe has stopped working - البراء - 17-12-15
الى حتى الان أحاول حل المشكلة ولكن بدون جدوى
RE: vshost.exe has stopped working - البراء - 17-12-15
اخ myalsailamy
و من كلامك معناتوه عندك خطأ في اعدادات المشروع او شيء تركب خطأ ،، أسهل طريقة تعيد انشاء المشروع و تضيف الاكواد و الـ Forms الي انشأتها سابقا و refrence و غيرها من الاشياء و تجرب تشغله و تشوووف هل بيتغير شيء او نفس المشكله ، ايضا حاول تفرغ مجلدين ( bin و Obj ) امسح الي بداخلها نهائي و جرب تشغل المشروع القديم
تم انشاء المشروع إضافة الاكواد و الـ Forms الي انشأتها سابقا و refrence و غيرها من الاشياء ولكن دون جدوى للأسف هل احد عنده حل بارك الله فيكم
RE: vshost.exe has stopped working - myalsailamy - 17-12-15
باقي خطوه معينه ،، تحديد مكان الخطأ
يعني استخدم طريقة التخمين و الاستبعاد / فمثلاً ابدا ضيف أجزاء في المشروع و جرب هل يختفي الخطأ او يبقى ،، على العموم بالنهاية اذا لم تقدم السورس كود لن يستطيع احد مساعدتك ، لان المساعده هنا تخمينات و يبقى الحل لديك انت .
و قد يكون الخلل من جهازك فقط ، بسبب تركيب خاطئ لاحد البرامج او عدم توافق الاصدارات ،، جربه على جهاز اخر
RE: vshost.exe has stopped working - الاصيله - 18-12-15
السلام عليكم
ليس هنالك خطأ انت تريد ان تنفذ الكود مرتين والبرنامج لايسمح به
فقط اكتب كود تجاوز الخطأ وسيتم التنفيذ بدون خروج من البرنامج
RE: vshost.exe has stopped working - البراء - 19-12-15
[quote pid='67652' dateline='1450343996']
الاخوة الاحباب نشكركم جميعا على المرور الى هذا اللحظة ما وجدت حل وبالنسبة الى الكود المستخدم كالتالي
كود :
Try
ListBox1.ClearSelected()
Catch ex As Exception
End Try
Dim Password As String
Sniper:
Try
Dim OpenFileDialog1 As New OpenFileDialog
Dim DataSet1 As New DataSet
If Password = "" Then
Dim myStream As Stream = Nothing
OpenFileDialog1.Filter = "Files (*.mdb;*.accdb;*.xls;*.xlsx)|*.mdb;*.accdb;*.xls;*.xlsx"
OpenFileDialog1.Title = "Select a Cursor File"
OpenFileDialog1.FilterIndex = 2
OpenFileDialog1.RestoreDirectory = True
If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Try
myStream = OpenFileDialog1.OpenFile()
If (myStream IsNot Nothing) Then
DataBasePath = OpenFileDialog1.FileName.ToString
End If
Catch Ex As Exception
MessageBox.Show("Cannot read file from disk. Original error: " & Ex.Message)
Finally
If (myStream IsNot Nothing) Then
myStream.Close()
End If
End Try
End If
End If
Con55 = New OleDbConnection(GetProvider(DataBasePath, Password))
Con55.Open()
Dim schemaTable As DataTable = Con55.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})
Dim Tables = (From Row As DataRow In schemaTable.Rows Where Row("TABLE_TYPE") = "TABLE" Select Row.Item("TABLE_NAME")).ToArray
ListBox1.Items.Clear()
ListBox1.Items.AddRange(Tables)
Con55.Close()
Catch ex As Exception
If Con55.State = ConnectionState.Open Then Con55.Close()
Password = InputBox("أدخل كلمة المرور لقاعدة البيانات", "كلمة المرور")
If Not String.IsNullOrEmpty(Password) Then
GoTo Sniper
End If
Finally
If Con55.State = ConnectionState.Open Then Con55.Close()
End Try[/quote]
RE: vshost.exe has stopped working - hamada558 - 19-12-15
انا شايف انك معقد المسالة، ومن الكود بدك تعرف اسماء الجداول، ممكن يكون هاد الكود ابسط لك، جرب وخبرني
كود :
Dim OpenFileDialog1 As New OpenFileDialog With {
.Filter = "Access (*.mdb;*.accdb)|*.mdb;*.accdb;|Excel (*.xls;*.xlsx)|*.xls;*.xlsx;",
.Title = "Select a Cursor File",
.FilterIndex = 2,
.RestoreDirectory = True
}
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
GetProvider(DataBasePath, Password)
If Not Con55.State() = ConnectionState.Open Then Con55.Open()
Dim schemaTable As DataTable = Con55.GetSchema("Tables", New String() {Nothing, Nothing, Nothing, "Table"})
Con55.Close()
Dim Tables = (From r In schemaTable Select r("TABLE_NAME")).ToArray
ListBox1.Items.Clear()
ListBox1.Items.AddRange(Tables)
End IfRE: vshost.exe has stopped working - البراء - 21-12-15
بسم الله الرحمن الرحيم
نشكر اخي hamada558 لمشاركة في حل المشكلة ولكن الى حتى الان بعد إضافة الكود لم نحل المشكلة وهنا الكود المستخدم كامل
كود :
Public Function GetProvider(ByVal PathStr As String, Optional ByVal Password As String = "") As String
Dim ProviderStr As String
Select Case Path.GetExtension(PathStr)
Case ".mdb"
ProviderStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & PathStr & ";Jet OLEDB:Database Password=" & Password & ";"
Case ".accdb"
ProviderStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Persist Security Info=False;" & ";Jet OLEDB:Database Password=" & Password & ";"
Case ".xls"
ProviderStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & PathStr & ";Extended Properties=Excel 8.0;"
Case ".xlsx"
ProviderStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=Excel 8.0;"
End Select
Return ProviderStr
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
ListBox1.ClearSelected()
Catch ex As Exception
End Try
Dim Password As String
Sniper:
Try
Dim OpenFileDialog1 As New OpenFileDialog
Dim DataSet1 As New DataSet
If Password = "" Then
Dim myStream As Stream = Nothing
OpenFileDialog1.Filter = "Files (*.mdb;*.accdb;*.xls;*.xlsx)|*.mdb;*.accdb;*.xls;*.xlsx"
OpenFileDialog1.Title = "Select a Cursor File"
OpenFileDialog1.FilterIndex = 2
OpenFileDialog1.RestoreDirectory = True
If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Try
myStream = OpenFileDialog1.OpenFile()
If (myStream IsNot Nothing) Then
DataBasePath = OpenFileDialog1.FileName.ToString
End If
Catch Ex As Exception
MessageBox.Show("Cannot read file from disk. Original error: " & Ex.Message)
Finally
If (myStream IsNot Nothing) Then
myStream.Close()
End If
End Try
End If
End If
Con55 = New OleDbConnection(GetProvider(DataBasePath, Password))
Con55.Open()
Dim schemaTable As DataTable = Con55.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})
Dim Tables = (From Row As DataRow In schemaTable.Rows Where Row("TABLE_TYPE") = "TABLE" Select Row.Item("TABLE_NAME")).ToArray
ListBox1.Items.Clear()
ListBox1.Items.AddRange(Tables)
Con55.Close()
Catch ex As Exception
If Con55.State = ConnectionState.Open Then Con55.Close()
Password = InputBox("أدخل كلمة المرور لقاعدة البيانات", "كلمة المرور")
If Not String.IsNullOrEmpty(Password) Then
GoTo Sniper
End If
Finally
If Con55.State = ConnectionState.Open Then Con55.Close()
End Try
End SubRE: vshost.exe has stopped working - البراء - 22-12-15
بسم الله الرحمن الرحيم
باعتقد ان هذا المشكلة ولا شخص حلها حتى الان قد يكون لدى الاخوة القدامى الخبرة والتجربة لحل هذه المشكلة
RE: vshost.exe has stopped working - hamada558 - 22-12-15
جرب وخبرني
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim OpenFile As New OpenFileDialog With {
.Filter = "Access (*.mdb;*.accdb)|*.mdb;*.accdb;|Excel (*.xls;*.xlsx)|*.xls;*.xlsx;",
.Title = "Select a Cursor File"
}
If OpenFile.ShowDialog() = DialogResult.OK Then
Con55.ConnectionString = GetProvider(OpenFile.FileName)
Dim password As String = ""
Try
Con55.Open()
Catch ex As Exception
password = InputBox("قاعدة البيانات قد تتطلب كلمة مرور")
Con55.ConnectionString = GetProvider(OpenFile.FileName, password)
End Try
ListBox1.Items.Clear()
Try
If Con55.State <> ConnectionState.Open Then Con55.Open()
Dim schemaTable As DataTable = Con55.GetSchema("Tables", New String() {Nothing, Nothing, Nothing, "Table"})
Con55.Close()
Dim Tables = (From r In schemaTable Select r("TABLE_NAME")).ToArray
ListBox1.Items.AddRange(Tables)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End Sub
Public Function GetProvider(ByVal PathStr As String, Optional ByVal Password As String = "") As String
Dim ProviderStr As String
Select Case Path.GetExtension(PathStr)
Case ".mdb"
ProviderStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & PathStr & ";Jet OLEDB:Database Password=" & Password & ";"
Case ".accdb"
ProviderStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Persist Security Info=False;" & ";Jet OLEDB:Database Password=" & Password & ";"
Case ".xls"
ProviderStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & PathStr & ";Extended Properties=Excel 8.0;"
Case ".xlsx"
ProviderStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=Excel 8.0;"
End Select
Return ProviderStr
End Functionسؤال هل انت واضع أداة OpenFileDialog1 من أدوات الفجوال؟
RE: vshost.exe has stopped working - البراء - 23-12-15
بسم الله الرحمن الرحيم
اخي hamada558 شكر على المشاركة تم تجرية الكود وتم وضع أداة OpenFileDialog1 من أدوات الفجوال ولكن ظهر لي خطأ كما في الصورة
(22-12-15, 02:12 PM)hamada558 كتب : جرب وخبرني
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim OpenFile As New OpenFileDialog With {
.Filter = "Access (*.mdb;*.accdb)|*.mdb;*.accdb;|Excel (*.xls;*.xlsx)|*.xls;*.xlsx;",
.Title = "Select a Cursor File"
}
If OpenFile.ShowDialog() = DialogResult.OK Then
Con55.ConnectionString = GetProvider(OpenFile.FileName)
Dim password As String = ""
Try
Con55.Open()
Catch ex As Exception
password = InputBox("قاعدة البيانات قد تتطلب كلمة مرور")
Con55.ConnectionString = GetProvider(OpenFile.FileName, password)
End Try
ListBox1.Items.Clear()
Try
If Con55.State <> ConnectionState.Open Then Con55.Open()
Dim schemaTable As DataTable = Con55.GetSchema("Tables", New String() {Nothing, Nothing, Nothing, "Table"})
Con55.Close()
Dim Tables = (From r In schemaTable Select r("TABLE_NAME")).ToArray
ListBox1.Items.AddRange(Tables)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End Sub
Public Function GetProvider(ByVal PathStr As String, Optional ByVal Password As String = "") As String
Dim ProviderStr As String
Select Case Path.GetExtension(PathStr)
Case ".mdb"
ProviderStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & PathStr & ";Jet OLEDB:Database Password=" & Password & ";"
Case ".accdb"
ProviderStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Persist Security Info=False;" & ";Jet OLEDB:Database Password=" & Password & ";"
Case ".xls"
ProviderStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & PathStr & ";Extended Properties=Excel 8.0;"
Case ".xlsx"
ProviderStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=Excel 8.0;"
End Select
Return ProviderStr
End Function
سؤال هل انت واضع أداة OpenFileDialog1 من أدوات الفجوال؟
[attachment=8821]