تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] عدم تنفيذ برنامج مرتبط بقاعدة بيانات
#1
Exclamation 
سلام
تكفون شباب لي فتره وانا اعاني من هذه المشكله وما لقيت لها حل
تطلع العباره ذي ومعبأه بلون اصفر


()newConnection.Open


وما ادري ايش الحل والبرنامج ما فيه اي خطأ
جربت نزلت برامج شبيهه ورحت انفذ..... برضه نفس المشكله


تكفون شباب الرد بأقرب وقت
الرد }}}
تم الشكر بواسطة:
#2

اللون الاصفر يعني خطأ

-ويش يقول الخطأ ؟؟

علما بأن هناك حالات كثيرة جدا لأخطأء قاعدة البيانات ، فالصق لنا الكود او المشروع

--

اذا قررت وضع الكود ، يرجى وضعه في وسم PHP او CODE

لان بصراحة انا ماقرأ الاكواد الي ملصقة مباشرة دون وضعها في وسم


الرد }}}
تم الشكر بواسطة: kslawy , reyad
#3
You should close the connection after you're done using it in the method, not before. If the Open method still causes the exception, after moving the call to the Close method, you have a problem with your connection string.
Maybe you can show us the connectionstring and all of the data access code you use

Or try this
كود :
If newConnection.State = ConnectionState.Open Then newConnection.Close()
newConnection.Open()

RolleyesRolleyesRolleyes
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد }}}
تم الشكر بواسطة: reyad , Sajad
#4
شكرا لكم اخوتي الاعزاء
رحت نزلت لغة فيجوال 2013 قلت يمكن اللي عندي فيها خلل
والناتج كان هوا هوا لان البرنامج انا رح اعدل عليه واستخمه لمحل عملي ولما انتهي منه اوعدكم اننا ازله في هذا المنتدى الرائع
واليكم الكود كاملا
PHP كود :
Imports System.Data
Imports System
.Data.OleDb
Public Class Mainform
   
    Dim connectionstring 
As String "Provider=Microsoft.Jet.OLEDB.4.0;" "Data Source =" Application.StartupPath "\work.mdb"
    
Dim newConnection As New OleDbConnection(connectionstring)
    
Dim DataSet1 As New DataSet

    Dim SQLstr 
As String "SELECT *FROM tabb"

    
Private Sub Mainform_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load

        newConnection
.Open()


        
Dim DataAdapter1 As New OleDbDataAdapter(SQLstrnewConnection)

        
DataAdapter1.Fill(DataSet1"tabb")

        
newConnection.Close()




        
TextBox1.DataBindings.Add("Text"DataSet1"tabb.id")
        
TextBox2.DataBindings.Add("Text"DataSet1"tabb.ttody")
        
TextBox3.DataBindings.Add("Text"DataSet1"tabb.ddate"22)
        
TextBox4.DataBindings.Add("Text"DataSet1"tabb.b1")
        
TextBox5.DataBindings.Add("Text"DataSet1"tabb.b2")
        
TextBox7.DataBindings.Add("Text"DataSet1"tabb.b3")
        
TextBox8.DataBindings.Add("Text"DataSet1"tabb.b4")
        
TextBox9.DataBindings.Add("Text"DataSet1"tabb.b5")
        
TextBox10.DataBindings.Add("Text"DataSet1"tabb.b6")
        
TextBox11.DataBindings.Add("Text"DataSet1"tabb.b7")
        
TextBox12.DataBindings.Add("Text"DataSet1"tabb.b8")
        
TextBox13.DataBindings.Add("Text"DataSet1"tabb.b9")
        
TextBox14.DataBindings.Add("Text"DataSet1"tabb.pprint")
        
TextBox15.DataBindings.Add("Text"DataSet1"tabb.info")

        
showlistnumber()



    
End Sub


    
Public Sub showlistnumber()

        
Label7.Text Me.BindingContext(DataSet1"tabb").Position 1

        Label9
.Text Me.BindingContext(DataSet1"tabb").Count


    End Sub
    
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click

        Me
.BindingContext(DataSet1"tabb").Position 0

        showlistnumber
()
    
End Sub

    
Private Sub Button4_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button4.Click

        Me
.BindingContext(DataSet1"tabb").Position Me.BindingContext(DataSet1"tabb").Count 1

        showlistnumber
()
    
End Sub

    
Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click

        Me
.BindingContext(DataSet1"tabb").Position += 1

        showlistnumber
()
    
End Sub

    
Private Sub Button3_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button3.Click

        Me
.BindingContext(DataSet1"tabb").Position -= 1

        showlistnumber
()
    
End Sub

    
Private Sub Button7_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button7.Click
        
If MsgBox("هل تريد حذف السجل الحالي ؟"48 MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
            
Exit Sub
        End 
If
        Try



            
Dim Savecommand As New OleDb.OleDbCommand

            Dim DataAdapter1 
As New OleDbDataAdapter(SQLstrnewConnection)


            
Savecommand.Connection newConnection
            Savecommand
.CommandType CommandType.Text

            Savecommand
.CommandText "DELETE FROM tabb WHERE id like '" TextBox1.Text "'"

            
newConnection.Open()


            
Savecommand.ExecuteNonQuery()

            
newConnection.Close()

            
DataSet1.Clear()

            
DataAdapter1.Fill(DataSet1"tabb")



            
MsgBox("تمت عملية الحذف في قاعدة البيانات بنجاح"64"حذف سجل")


            
showlistnumber()

        Catch 
ex As Exception

            MsgBox
(ex.Message)

        
End Try

    
End Sub

    
Private Sub Button6_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button6.Click

        newlist
.Show()
        
Me.Hide()
    
End Sub

    
Private Sub Button5_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button5.Click

        Dim edit 
As New editform


        edit
.TextBox1.Text Me.TextBox1.Text
        edit
.TextBox2.Text Me.TextBox2.Text
        edit
.TextBox3.Text Me.TextBox3.Text
        edit
.TextBox4.Text Me.TextBox4.Text
        edit
.TextBox5.Text Me.TextBox5.Text
        edit
.TextBox7.Text Me.TextBox7.Text
        edit
.TextBox8.Text Me.TextBox8.Text
        edit
.TextBox9.Text Me.TextBox9.Text
        edit
.TextBox10.Text Me.TextBox10.Text
        edit
.TextBox11.Text Me.TextBox11.Text
        edit
.TextBox12.Text Me.TextBox12.Text
        edit
.TextBox13.Text Me.TextBox13.Text
        edit
.TextBox14.Text Me.TextBox14.Text
        edit
.TextBox15.Text Me.TextBox15.Text


        edit
.Label6.Text Me.TextBox1.Text


        edit
.Show()

        
Me.Hide()


    
End Sub


    
Private Sub Button10_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button10.Click
       


        End

    End Sub

    
Private Sub Button11_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button11.Click

        searchform
.Show()
        
Me.Hide()
    
End Sub

    
Private Sub Button12_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button12.Click

        
If TextBox6.Text "" Then
            
Exit Sub



        
ElseIf Val(TextBox6.Text) > Me.BindingContext(DataSet1"tabb").Count Then
            MessageBox
.Show(" أدخلت رقما خاطئا")



        Else

            
Me.BindingContext(DataSet1"tabb").Position = (TextBox6.Text 1)


            
showlistnumber()

            
Label11.Text ""

        
End If
    
End Sub



    
Private Sub TextBox6_KeyPress(ByVal sender As System.ObjectByVal e As System.Windows.Forms.KeyPressEventArgsHandles TextBox6.KeyPress

        
If (Char.IsLetter(e.KeyChar) = TrueThen
            e
.Handled True


        
ElseIf Char.IsSymbol(e.KeyChar) = True Then
            e
.Handled True


        
ElseIf Char.IsPunctuation(e.KeyChar) = True Then
            e
.Handled True

        End 
If


    
End Sub

    
Private Sub Label3_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Label3.Click

    End Sub

    
Private Sub ToolStripButton2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ToolStripButton2.Click
        newlist
.Show()
        
Me.Hide()
    
End Sub

    
Private Sub ToolStripButton3_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ToolStripButton3.Click
        
If MsgBox("هل تريد حذف السجل الحالي ؟"48 MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
            
Exit Sub
        End 
If
        Try



            
Dim Savecommand As New OleDb.OleDbCommand

            Dim DataAdapter1 
As New OleDbDataAdapter(SQLstrnewConnection)


            
Savecommand.Connection newConnection
            Savecommand
.CommandType CommandType.Text

            Savecommand
.CommandText "DELETE FROM tabb WHERE id like '" TextBox1.Text "'"

            
newConnection.Open()


            
Savecommand.ExecuteNonQuery()

            
newConnection.Close()

            
DataSet1.Clear()

            
DataAdapter1.Fill(DataSet1"tabb")



            
MsgBox("تمت عملية الحذف في قاعدة البيانات بنجاح"64"حذف سجل")


            
showlistnumber()

        Catch 
ex As Exception

            MsgBox
(ex.Message)

        
End Try

    
End Sub

    
Private Sub ToolStripButton4_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ToolStripButton4.Click
        Dim edit 
As New editform


        edit
.TextBox1.Text Me.TextBox1.Text
        edit
.TextBox2.Text Me.TextBox2.Text
        edit
.TextBox3.Text Me.TextBox3.Text
        edit
.TextBox4.Text Me.TextBox4.Text
        edit
.TextBox5.Text Me.TextBox5.Text
        edit
.TextBox7.Text Me.TextBox7.Text
        edit
.TextBox8.Text Me.TextBox8.Text
        edit
.TextBox9.Text Me.TextBox9.Text
        edit
.TextBox10.Text Me.TextBox10.Text
        edit
.TextBox11.Text Me.TextBox11.Text
        edit
.TextBox12.Text Me.TextBox12.Text
        edit
.TextBox13.Text Me.TextBox13.Text
        edit
.TextBox14.Text Me.TextBox14.Text
        edit
.TextBox15.Text Me.TextBox15.Text


        edit
.Label6.Text Me.TextBox1.Text


        edit
.Show()

        
Me.Hide()
    
End Sub

    
Private Sub ToolStripButton5_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ToolStripButton5.Click
        searchform
.Show()
        
Me.Hide()
    
End Sub

    
Private Sub ToolStripButton1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ToolStripButton1.Click
        End
    End Sub
End 
Class 

    [attachment=958][attachment=958]


    اليكم الصوره

    لما طبقت تعليمات الاخ Genius Live
كان الناتج كما في هذه الصوره , اي اخطاء اكثر
الرد }}}
تم الشكر بواسطة:
#5
اخوتي الله يرضى عليكم


تكفون شباب شوفوا الحل
الرد }}}
تم الشكر بواسطة:
#6
السلام عليكم

اخي العزيز قم بتغيير الـTarget CPUمن x64 الى x86 من خصائص المشروع

تحياتي
الرد }}}
تم الشكر بواسطة: reyad


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استعلام من عدة جداول لقاعدة بيانات اكسس Adel27213 1 702 07-11-23, 08:27 AM
آخر رد: justforit
  [SQL] استفسار عن طريقة تحزم قواعد بيانات MSSQL مع البرنامج VB.NET2019 salemq 2 530 18-05-23, 03:02 AM
آخر رد: سعود
  ما معني بيانات تقع بين الرمز[] في حقل في داتا بيس bassant 3 672 03-04-23, 11:53 PM
آخر رد: sanyor77
  [نقاش] مشاركة قاعدة بيانات SQL على شبكه داخليه morkoskhalaf 3 3,012 06-01-23, 03:20 AM
آخر رد: عبدالكريم برشدان
  قاعدة بيانات xml djelloul 3 2,799 07-11-22, 10:27 PM
آخر رد: Am7
  [عنوان معدل]حفظ بيانات listbox fhad24 36 12,241 08-10-22, 06:55 PM
آخر رد: رضوان الجماعي
  مشكلة ظهور بياانات حقلين في قاعدة بيانات على شكل علامة استفهام bassant 5 1,632 17-10-21, 02:07 PM
آخر رد: abubasilIraq
  كيف افتح قاعة بيانات اكسس بسام محمدغانم 1 1,404 04-10-21, 02:52 AM
آخر رد: اسلام الكبابى
  تحويل multiline text الى single line في عمود في قاعدة بيانات sql server bassant 0 958 07-09-21, 04:36 PM
آخر رد: bassant
  [Acces2010] عمل قاعدة بيانات لنظام غيابات الطلبة hassan karim 1 1,920 31-08-21, 04:47 AM
آخر رد: a7med saba

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم