28-01-14, 11:40 AM
السلام عليكم ..
الاخوة ماسبب ظهور خط اخضر متعرج تحت عبارة
End Function
مرفق الكود:
Public Function IsConnected(ByVal strQry As String, ByVal ver As Boolean)
Try
If Conn.State = ConnectionState.Open Then Conn.Close()
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\database.mdb;"
Conn.Open()
Cmd.CommandText = strQry
Cmd.Connection = Conn
If ver = False Then
DR = Cmd.ExecuteReader()
Else
Cmd.ExecuteNonQuery()
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try
End Function
End Module
الاخوة ماسبب ظهور خط اخضر متعرج تحت عبارة
End Function
مرفق الكود:
Public Function IsConnected(ByVal strQry As String, ByVal ver As Boolean)
Try
If Conn.State = ConnectionState.Open Then Conn.Close()
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\database.mdb;"
Conn.Open()
Cmd.CommandText = strQry
Cmd.Connection = Conn
If ver = False Then
DR = Cmd.ExecuteReader()
Else
Cmd.ExecuteNonQuery()
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try
End Function
End Module