Могу рекомендовать использовать sqlite. Добавь в проект dll вот от сюда можешь скачать http://www.sqlite.org/download.html. Ищи после установки sqlite в папке compactframework (добавить ссылки).
вот пример кода создание базы данных
| Код |
Dim conn As New System.Data.SQLite.SQLiteConnection
Dim command As New System.Data.SQLite.SQLiteCommand
' SQLLIT
If IO.File.Exists(CurDir() & "\database\inn.db") = False Then ' проверяет если такая бд вобще если нет то создать
conn.ConnectionString = "Data Source=" & CurDir() & "\database\inn.db;Version=3;New=False;Compress=True"
conn.Open()
command = conn.CreateCommand()
command.CommandText = "CREATE TABLE NameSpace (id integer primary key AUTOINCREMENT, name varchar(500), adress varchar(500), ogrn varchar(20), inn varchar(20), kpp varchar(20), rs varchar(20), bik varchar(9), okpo varchar(9), ks varchar(20), ogrnbanka varchar(20), kppbanka varchar(10), bank varchar(500), adressbank varchar(500), contact varchar(100), rezerv varchar(100))"
command.ExecuteNonQuery()
conn.Close()
End If
|
это пример базы данных фирм
| Код |
Dim conn As New System.Data.SQLite.SQLiteConnection
conn.ConnectionString = "Data Source=" & CurDir() & "\database\inn.db;Version=3;New=False;Compress=True"
conn.Open()
Dim command As New System.Data.SQLite.SQLiteCommand
command = conn.CreateCommand()
command.CommandText = "INSERT INTO NameSpace (name, adress, ogrn, inn, kpp, rs, bik, okpo, ks, ogrnbanka, kppbanka, bank, adressbank, contact) VALUES ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "', '" & TextBox4.Text & "', '" & TextBox5.Text & "', '" & TextBox6.Text & "', '" & TextBox7.Text & "', '" & TextBox8.Text & "', '" & TextBox9.Text & "', '" & TextBox10.Text & "', '" & TextBox11.Text & "', '" & TextBox12.Text & "', '" & TextBox13.Text & "', '" & TextBox14.Text & "')"
command.ExecuteNonQuery()
|
добовляем строку
| Код |
Dim command As New System.Data.SQLite.SQLiteCommand
command = conn.CreateCommand()
command.CommandText = "UPDATE NameSpace SET name='" & TextBox1.Text & "', adress='" & TextBox2.Text & "', ogrn='" & TextBox3.Text & "', inn='" & TextBox4.Text & "', kpp='" & TextBox5.Text & "', rs='" & TextBox6.Text & "', bik='" & TextBox7.Text & "', okpo='" & TextBox8.Text & "', ks='" & TextBox9.Text & "', ogrnbanka='" & TextBox10.Text & "', kppbanka='" & TextBox11.Text & "', bank='" & TextBox12.Text & "', adressbank='" & TextBox13.Text & "', contact='" & TextBox14.Text & "' WHERE id=" & Select_item
' "VALUES ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "', '" & TextBox4.Text & "', '" & TextBox5.Text & "', '" & TextBox6.Text & "', '" & TextBox7.Text & "', '" & TextBox8.Text & "', '" & TextBox9.Text & "', '" & TextBox10.Text & "', '" & TextBox11.Text & "', '" & TextBox12.Text & "', '" & TextBox13.Text & "', '" & TextBox14.Text & "') WHERE id=" & Select_item
command.ExecuteNonQuery()
|
изменение строки
Вот таким макаром тебе надо использовать простейшую БД на основе SQL запросов. Но есть способ проще если тебе не нужен SQL то без проблем можно юзать простейший метод записи в файл если интересует могу дать ссылку. |
)