Dmitriy Solomnikov » 28.03.2005 (Пн) 16:29
cn.Open "Driver=Microsoft Access Driver (*.mdb);DBQ=" & querty.mdb
Set rs = cn.OpenSchema(adSchemaTables)
Do While Not rs.EOF
If "Statistics" = rs.Fields("TABLE_NAME").Value Then
Exit Do
End If
rs.MoveNext
Loop
If rs.EOF Then
cn.Execute "CREATE TABLE Statistics (idTZ text, p text, s text, r text, b text, distr text, count text)"
Else
cn.Execute "DROP TABLE Statistics"
cn.Execute "CREATE TABLE Statistics (idTZ text, p text, s text, r text, b text, distr text, count text)"
End If
rs.Close
cn.Close
этот пример написан на vb6, но я его переделал на .NET, вот только код потерял, Но работало 100 пудово. Там параметр adSchemaTables надо заменить на (что-то).adSchemaTables и все будет впорядке.