|
|
|
| При передаче конешным пользователям программ, созданных на VB_NET , дополнитеьно какие нить компоненты надо будет посылать - передавать , или там инсталллятор какойто будет всроенный? | |
|
| |
|
|
|
| как минимум, нужно убедиться в наличие нужной версии MS .Net FrameWork
ну и библиотеки, которые используются в проекте | |
|
| |
|
|
|
| framework 2.0 или выше( в зависимости от приложения) , если у пользователей не установлен, то нужно установить.
А так формируешь exe-шник и фсе. | |
|
| |
|
|
|
| вроде как получается тока Framework - эту связку из библиотек....
понятно...
===============================================
ды вот устанавливаю студию........
С работы выгоняють - время свободное имеется - буду изучать приёмы программирования в VS
http://teachvb.narod.ru/Zan001.htm | |
|
| |
|
|
|
| Люблю изучать на небольших примерах ...
что нибудь предложить можете?77
основное направление это конечна работа с базами данных начну видимо с привычного с MS Access
================================================================
как связаться, отвязатся, запросить, отобразить, изменить и сохранить?? | |
|
| |
|
37 Кб. |
|
| вот | |
|
| |
|
|
|
|
как связаться, отвязатся, запросить, отобразить, изменить и сохранить??
|
Изучай ADO.NET.
В .NET несколько другие принципы связи с данными. Там соединение формируется на небольшой отрезок времени. Забирает данные, после чего соединение разрывается. И работа происходит с забранными данными. Хороший учебник по ADO.NET "Д.Сеппа. Программирование на ADO.NET2.0". Хотя тебе понадобится .NET 3.5 ( Поскольку ставишь 2008 студию) | |
|
| |
|
|
|
| Если не найдешь где скачать книгу по ADO.NET могу отправить на мыло.
Правда весит она 31 метр. | |
|
| |
|
|
|
| А может пришлёшь главу №1 - мне пока хватит | |
|
| |
|
|
|
| Загрузилось - первое впечатление офонарел от предоставляемых возможностей от шаблонов форм до элементов управления - просто офанарел......... | |
|
| |
|
|
|
| хотя ADO.net у меня книга есть.... я вспомнил - толстая такая офигеть....
надо скачаь примерчики и с них начинать освоение.....
потому как времени на теорию не много - практику параллелить будем с теорией | |
|
| |
|
|
|
| Первые смешинки
TextBox1.Text = Format(DateTimePicker1.Value, "dd\/mm\/yyyy")
в результате 19/39/2009 - закусавать нада | |
|
| |
|
54 Кб. |
|
| DevExpress еше можно - существенно расширит возможности. Гриды/виды со встроенными поиском, фильтром, сортировкой, группировкой. удобно, шустро | |
|
| |
|
|
|
| а в самом чё там с этим вроде нет проблем, простите ламера....
================================
вот надыбал http://www.vbstreets.ru/VBdotNET/Sources/default.aspx | |
|
| |
|
|
|
| мда.... А почитать хэлп?
TextBox1.Text = CDate(Format(DateTimePicker1.Value, "Long Date"))
Что так выдаст? | |
|
| |
|
|
|
|
| В .NET идет форматирование по другому.
Пример можно заменить следующей строкой
TextBox1.Text = Format(DateTimePicker1.Value, "d") - получишь тоже самое.
Поройся в хэлпе. | |
|
| |
|
|
|
| а в каком конкретно рыться?
У мну аглицкая версия - я по аглицки знаю только Hello | |
|
| |
|
|
|
| rsdn- это аналог msdn на русском языке. Или поставь себе промт или другой переводчик.
Ваащето тут без вражеской мовы тяжеловато будет. | |
|
| |
|
|
|
|
| Вот первая ласточка - работает - всё путём всё понятно, за исключением
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim StrFileDB As String
Dim ADOF As New ADOX.Catalog
Dim NameTable As String
StrFileDB = ""
SaveFileDialog1.Filter = "Access file (*.mdb) | *.mdb"
SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName <> "" Then
StrFileDB = SaveFileDialog1.FileName
End If
If StrFileDB <> "" Then
FileNameDB.Text = StrFileDB
NameTable = "tblSQLQuery"
'Закроем что есть
'Call CloseDataBase() вот это не понятно
'создаем базу данных
ADOF.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & StrFileDB)
'создадим таблицу и поля с помощью ADOX
Dim oTable As New ADOX.Table
'Создаем поле со счетчиком (Autoincrement ID Column)
Dim oColumn As New ADOX.Column
With oTable
.Name = NameTable
With .Columns
.Append("id", ADOX.DataTypeEnum.adInteger)
With !id
.ParentCatalog = ADOF
.Properties("Autoincrement").Value = True
.Properties("seed").Value = ADOX.DataTypeEnum.adInteger
.Properties("increment").Value = ADOX.DataTypeEnum.adInteger
End With
End With
End With
ADOF.Tables.Append(oTable)
'Создаем ключ
Dim keysPrimary As New ADOX.Key
keysPrimary.Name = "PrimaryKey"
keysPrimary.Type = ADOX.KeyTypeEnum.adKeyPrimary
keysPrimary.Columns.Append("id")
oTable.Keys.Append(keysPrimary, ADOX.KeyTypeEnum.adKeyPrimary)
'Добавляем поля с помощью ADOX
Try
Dim Name As New ADOX.Column
Name.Name = "name"
Name.Type = ADOX.DataTypeEnum.adVarWChar 'текст
Name.DefinedSize = 50 'длина 50
Name.Attributes = ADOX.ColumnAttributesEnum.adColNullable 'необязательное поле
oTable.Columns.Append(Name)
Dim query As New ADOX.Column
query.Name = "query"
query.Type = ADOX.DataTypeEnum.adLongVarWChar 'текст
query.DefinedSize = 0 'длина до 65535
query.Attributes = ADOX.ColumnAttributesEnum.adColNullable 'необязательное поле
oTable.Columns.Append(query)
Dim strserver As New ADOX.Column
strserver.Name = "strserver"
strserver.Type = ADOX.DataTypeEnum.adVarWChar 'текст
strserver.DefinedSize = 50 'длина 50
strserver.Attributes = ADOX.ColumnAttributesEnum.adColNullable 'необязательное поле
oTable.Columns.Append(strserver)
Dim strdatabase As New ADOX.Column
strdatabase.Name = "strdatabase"
strdatabase.Type = ADOX.DataTypeEnum.adVarWChar 'текст
strdatabase.DefinedSize = 50 'длина 50
strdatabase.Attributes = ADOX.ColumnAttributesEnum.adColNullable 'необязательное поле
oTable.Columns.Append(strdatabase)
Dim strconnection As New ADOX.Column
strconnection.Name = "strconnection"
strconnection.Type = ADOX.DataTypeEnum.adLongVarWChar 'текст
strconnection.DefinedSize = 0 'длина до 65535
strconnection.Attributes = ADOX.ColumnAttributesEnum.adColNullable 'необязательное поле
oTable.Columns.Append(strconnection)
Dim strtime As New ADOX.Column
strtime.Name = "strtime"
strtime.Type = ADOX.DataTypeEnum.adVarWChar 'текст
strtime.DefinedSize = 50 'длина 50
strtime.Attributes = ADOX.ColumnAttributesEnum.adColNullable 'необязательное поле
oTable.Columns.Append(strtime)
Dim StrLogin As New ADOX.Column
StrLogin.Name = "StrLogin"
StrLogin.Type = ADOX.DataTypeEnum.adVarWChar 'текст
StrLogin.DefinedSize = 50 'длина 50
StrLogin.Attributes = ADOX.ColumnAttributesEnum.adColNullable 'необязательное поле
oTable.Columns.Append(StrLogin)
Dim StrPWD As New ADOX.Column
StrPWD.Name = "StrPWD"
StrPWD.Type = ADOX.DataTypeEnum.adVarWChar 'текст
StrPWD.DefinedSize = 50 'длина 50
StrPWD.Attributes = ADOX.ColumnAttributesEnum.adColNullable 'необязательное поле
oTable.Columns.Append(StrPWD)
oTable.Columns.Append("TypeQuery", ADOX.DataTypeEnum.adUnsignedTinyInt)
'Закрываем все
ADOF = Nothing
keysPrimary = Nothing
'Откроем все по новой
'OpenDataBase() вот это не понятно
MsgBox("База данных создана")
Catch ex As Exception
MsgBox("Ошибка при создании базы данных " & ex.Message)
End Try
End If
End Sub
End Class
|
| |
|
| |
|
|
|
| Во-первых код нихренаськи не читаем.
Во-вторых - а где текст процедур
CloseDataBase() и OpenDataBase() ?
А в-третьих Первая процедура скорее всего разрывает текущее соединение с базой данных
а вторая открывает его и чего-то в базу записывает. Скорее всего все созданное выше.
И потом не-понятно зачем таким гемором создавать таблицы. Это аналогично тому как через create table создавать таблицы в аксе. Часто пользовался этим оператором? | |
|
| |
|
|
|
| Вааще-то не поленись прочитать в ADO.NET про sqldataadapter и как на его основании формируется dataset, datareader,datatable, ну и еще dataview. Так же изучи sqlcommand.
Разберись как на основании этих объектов вытягивать данные из базы и записывать в базу.
Это покорет 99% всех потребностей работы с данными. | |
|
| |
|
|
|
| про ADO.NET вот какая пктрушка - там всё про язык программирования C# написано - все примеры
разобраться конечно можно - но фиговато....... | |
|
| |
|
|
|
| Два варианта
Вариант1: у тебю есть уникальный шанс и стимул выучить С#
Вариант второй у мну в книге примеры есть и на VB . Если хочешь - постараюсь выслать книгу на мыло, или спроси Lukas-а. Он читал эту книжку. Может у него осталась ссылка на нее в нете. | |
|
| |
|
|
|
| учи С#, ближе к java, а это тоже потом пригодится | |
|
| |
|
|
|
|
Разберись как на основании этих объектов вытягивать данные из базы и записывать в базу.
Это покорет 99% всех потребностей работы с данными.
|
инструкция к действию | |
|
| |
|
|
|
|
там всё про язык программирования C# написано
|
http://www.developerfusion.com/tools/convert/csharp-to-vb/ | |
|
| |
|
53 Кб. |
|
| Спасибо огромно,но,но...
я пока с vb.net разбираюся | |
|
| |
|
|
|
| ну так а я про что? :)
по ссылке этой можно 'перевести' код с С.NET (что в Ваших примерах) на VB.NET | |
|
| |
|
|
|
| Это пример - который удалось найти в инете, тот что даёт представление о возможностях создания баз и таблиц в них....
==================================
код нихренаськи не читаем
|
это тута он как то сбился в узкий столбец
в оригинале - он по правилам фоматирован... ...... | |
|
| |
|
53 Кб. |
|
| Вот такой код простой а вызывает сбой | |
|
| |
|
|
|
| И ваще - где этот consol - в который строки пишутся?
| |
|
| |
|
|
|
| И как создать экземпляр класса в vb.net модуль класса ToDB
=======================
попробуй вот так
Dim Сlass_ASS As New ToDB
|
| |
|
| |
|
|
|
| может надо dbreader(0).tostring | |
|
| |
|
|
|
| Покажи полностью строку подключения. А то на картинке она обрезана.
Попробуй конструкцию
Using dbReader as SqlDataReader = dbCmd.ExecuteReader()
Do While dbReader.Read()
Console.Writeline (dbReader("Наименование поля"))
Loop
dbReader.Close()
End Using
И пропиши вверху Impotrs System.Data.SqlClient - без этого работать не будет
Да и вообще не могу понять где ты это прописываешь? | |
|
| |
|
|
|
| а зачем Impotrs System.Data.SqlClient?
там вроде оледб с аксом | |
|
| |
|
|
|
| Тьфу,блин. Точно. Я что-то на скл сервере заклинился.
Час, выкинь ты этот акс нафиг. СКЛ сервер и работает быстрее и возможностей на порядок больше.
А синтаксис практически совпадает. Тут же ты акс используешь только как хранилище данных.
Да и скл сервер бесплатный ( экспресс версия ) | |
|
| |
|
|
|
| согласен. сходить на НЕТ из-за акса не стоит :)
можно, как вариант, мускуль попробовать. в общем что-нибудь клиент-серверное | |
|
| |
|
|
|
| так ведь для обслуживания Mysql - понадобятся какие то проги.
В Access удобно всё и запросы создавать визуально и таблицы поправить...
======================================
и я думаю это на следующий этап освоения отложить
А пока=====
===========
картинка полностью отображает - весь код
import - там наверху прикручен
этот кот в модуле
Module1
sub maint | |
|
| |
|
|
|
| И вот console.WriteLine - не хочет читатьстроку | |
|
| |
|
|
|
|
так ведь для обслуживания Mysql - понадобятся какие то проги.
В Access удобно всё и запросы создавать визуально и таблицы поправить...
|
Гляньте на него, ровесник Суворова, а все от акса отойти боится :)
да все есть и удобно в том числе | |
|
| |
|
|
|
|
| http://hiprog.com/forum/read.php?id_forum=5&id_theme=4127&page=1 | |
|
| |
|
|
|
| Ещё winda gluchit опять всё звездой накрылось..........
чёрный экран смерти
какой то рок по VB.Net и мне дороги туда нет.. | |
|
| |