بســم الله الـرحمــن الرحيــم
ارجو افادتي في الخطا في هذا الكود
علما باني اعمل على vb.net 2005
وعند التفيذ يظهر خطأ في الكود
برجاء للخبراء التصحيح
Dim cn As New OleDbConnection
cn.Close()
If cn.State = ConnectionState.Closed Then
cn.ConnectionString = "provider = Microsoft.jet.oledb.4.0; data source = xtreme.mdb"
cn.Open()
End If
Dim cmd As New OleDbCommand
Dim dr As OleDb.OleDbDataReader
cmd.Connection = cn
cmd.CommandType = CommandType.Text
Dim s As String
s = "create view test as select * from Customer"
s = s & "where Customer ID = ' " + TextBox1.Text + " ' "
cmd.CommandText = s
dr = cmd.ExecuteReader
dr.Close()
<b>
</b></div>