Страница: 1 |
Страница: 1 |
Вопрос: nsis system::call и vb .net class library
Добавлено: 27.11.11 15:36
Автор вопроса: Джон | Web-сайт:
имеется некая прога, которая хранит данные в sqlite3
и длл-ка
Public Class sqlite
Public Shared Sub exeQ(ByVal filename As String, ByVal QUERY As String)
Dim sconnect As New System.Data.SQLite.SQLiteConnection()
sconnect.ConnectionString = "datasource=" + filename + ";"
Dim command As System.Data.SQLite.SQLiteCommand
command = sconnect.CreateCommand
command.CommandText = QUERY
command.ExecuteNonQuery()
command.Dispose()
sconnect.Close()
End Sub
Public Shared Function selectQ(ByVal filename As String, ByVal QUERY As String, ByVal tablename As String) As DataSet
Dim SQLconnect As New System.Data.SQLite.SQLiteConnection
Dim dataSet = New DataSet()
SQLconnect.ConnectionString = "Data Source=" & filename & ";"
SQLconnect.Open()
Dim dataAdapter = New SQLiteDataAdapter(QUERY, SQLconnect)
dataAdapter.Fill(dataSet, tablename)
Return dataSet
End Function
End Class
с пространством имён sqlitewrread
как вызвать её из nsis?
Ответы
Всего ответов: 3
Номер ответа: 1
Автор ответа:
Джон
ICQ: 610650385
Вопросов: 3
Ответов: 10
Web-сайт:
Профиль | | #1
Добавлено: 29.12.11 12:32
сделать её unmanaged?
Номер ответа: 2
Автор ответа:
SHDZ
ICQ: 209382104
Вопросов: 39
Ответов: 244
Профиль | | #2
Добавлено: 14.02.12 12:56
а в чем-то проблема:
sqlite Ex = new sqlite ();
Ex.exeQ("TABLE","INSERT INTO table (Id, Name) SELECT 1, "ЧЕГОТО ТАМ"
Возвращает вторая функция датасэт, т.е. его уже куда угодно
DataSet MyDS = Ex.selectQ("файл базы", "SELECT * FROM TABLE", "Имя таблицы"
примеры писал без студии и на шарпе, на VBNET чуть поменяй объявление переменных и ";" убрать в конце, кажись все
Номер ответа: 3
Автор ответа:
SHDZ
ICQ: 209382104
Вопросов: 39
Ответов: 244
Профиль | | #3
Добавлено: 14.02.12 12:57
ага опять поспешил, ответ не в тему совершенно, извени, не то