طلب عاجل لو سمحتوا ....
السلام عليكم
يضهر لدي خطاء بهذ الكود لااعرف ماهوا السبب الفعلي له ؟؟
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Dim cn1 As New OleDbConnection("Provider=MSDAORA.1;Password=pas;User ID=abc;Data Source=db1")
Dim ADPT As New OleDbDataAdapter("Select * From GUSTBOOK", cn1)
Dim num1 As Integer
Dim data_set1 As New DataSet()
cn1.Open()
ADPT.Fill(data_set1, "GUSTBOOK")
num1 = data_set1.Tables("GUSTBOOK").Rows.Count
Dim InsertCMD As New OleDbCommand("Insert Into GUSTBOOK (NUM,NAME_GUST,WEP_GUST,EMAIL_GUST,DESC_GUST1) Values ('" & num1 & "','" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')", cn1)
InsertCMD.ExecuteNonQuery()
End Subوالخطاء هو ORA-12154: TNS: لا يمكن تحليل اسم الخدمة
ارجوا الافاده لو سمحتوا ...