Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: 

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: МИ-NET
 
 автор: час   (19.10.2009 в 10:13)   личное сообщение
 
 

При передаче конешным пользователям программ, созданных на VB_NET , дополнитеьно какие нить компоненты надо будет посылать - передавать , или там инсталллятор какойто будет всроенный?

  Ответить  
 
 автор: ДрЮня   (19.10.2009 в 10:22)   личное сообщение
 
 

как минимум, нужно убедиться в наличие нужной версии MS .Net FrameWork
ну и библиотеки, которые используются в проекте

  Ответить  
 
 автор: FORMAT   (19.10.2009 в 10:24)   личное сообщение
 
 

framework 2.0 или выше( в зависимости от приложения) , если у пользователей не установлен, то нужно установить.
А так формируешь exe-шник и фсе.

  Ответить  
 
 автор: час   (19.10.2009 в 10:40)   личное сообщение
 
 

вроде как получается тока Framework - эту связку из библиотек....
понятно...
===============================================
ды вот устанавливаю студию........

С работы выгоняють - время свободное имеется - буду изучать приёмы программирования в VS
http://teachvb.narod.ru/Zan001.htm

  Ответить  
 
 автор: час   (19.10.2009 в 10:53)   личное сообщение
 
 

Люблю изучать на небольших примерах ...
что нибудь предложить можете?77
основное направление это конечна работа с базами данных начну видимо с привычного с MS Access
================================================================
как связаться, отвязатся, запросить, отобразить, изменить и сохранить??

  Ответить  
 
 автор: час   (19.10.2009 в 11:02)   личное сообщение
37 Кб.
 
 

вот

  Ответить  
 
 автор: FORMAT   (19.10.2009 в 11:13)   личное сообщение
 
 


как связаться, отвязатся, запросить, отобразить, изменить и сохранить??


Изучай ADO.NET.
В .NET несколько другие принципы связи с данными. Там соединение формируется на небольшой отрезок времени. Забирает данные, после чего соединение разрывается. И работа происходит с забранными данными. Хороший учебник по ADO.NET "Д.Сеппа. Программирование на ADO.NET2.0". Хотя тебе понадобится .NET 3.5 ( Поскольку ставишь 2008 студию)

  Ответить  
 
 автор: FORMAT   (19.10.2009 в 11:37)   личное сообщение
 
 

Если не найдешь где скачать книгу по ADO.NET могу отправить на мыло.
Правда весит она 31 метр.

  Ответить  
 
 автор: час   (19.10.2009 в 12:02)   личное сообщение
 
 

А может пришлёшь главу №1 - мне пока хватит

  Ответить  
 
 автор: час   (19.10.2009 в 12:03)   личное сообщение
 
 

Загрузилось - первое впечатление офонарел от предоставляемых возможностей от шаблонов форм до элементов управления - просто офанарел.........

  Ответить  
 
 автор: час   (19.10.2009 в 12:05)   личное сообщение
 
 

хотя ADO.net у меня книга есть.... я вспомнил - толстая такая офигеть....
надо скачаь примерчики и с них начинать освоение.....
потому как времени на теорию не много - практику параллелить будем с теорией

  Ответить  
 
 автор: час   (19.10.2009 в 12:39)   личное сообщение
 
 

Первые смешинки
TextBox1.Text = Format(DateTimePicker1.Value, "dd\/mm\/yyyy")
в результате 19/39/2009 - закусавать нада

  Ответить  
 
 автор: KrukVN   (19.10.2009 в 12:59)   личное сообщение
54 Кб.
 
 

DevExpress еше можно - существенно расширит возможности. Гриды/виды со встроенными поиском, фильтром, сортировкой, группировкой. удобно, шустро

  Ответить  
 
 автор: час   (19.10.2009 в 13:09)   личное сообщение
 
 

а в самом чё там с этим вроде нет проблем, простите ламера....

================================
вот надыбал http://www.vbstreets.ru/VBdotNET/Sources/default.aspx

  Ответить  
 
 автор: FORMAT   (19.10.2009 в 13:12)   личное сообщение
 
 

мда.... А почитать хэлп?

TextBox1.Text = CDate(Format(DateTimePicker1.Value, "Long Date"))
Что так выдаст?

  Ответить  
 
 автор: час   (19.10.2009 в 13:12)   личное сообщение
 
 



Странно - а так нормально
22.10.2009

  Ответить  
 
 автор: FORMAT   (19.10.2009 в 13:25)   личное сообщение
 
 

В .NET идет форматирование по другому.
Пример можно заменить следующей строкой
TextBox1.Text = Format(DateTimePicker1.Value, "d") - получишь тоже самое.

Поройся в хэлпе.

  Ответить  
 
 автор: час   (19.10.2009 в 14:11)   личное сообщение
 
 

а в каком конкретно рыться?
У мну аглицкая версия - я по аглицки знаю только Hello

  Ответить  
 
 автор: FORMAT   (19.10.2009 в 14:31)   личное сообщение
 
 

rsdn- это аналог msdn на русском языке. Или поставь себе промт или другой переводчик.
Ваащето тут без вражеской мовы тяжеловато будет.

  Ответить  
 
 автор: час   (19.10.2009 в 15:20)   личное сообщение
 
 

Спасибо!!!!
Вот то, что нам поможет
http://msdn.microsoft.com/ru-ru/library/87sfaezs.aspx

  Ответить  
 
 автор: час   (19.10.2009 в 16:48)   личное сообщение
 
 

Вот первая ласточка - работает - всё путём всё понятно, за исключением


одного момента





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

  Ответить  
 
 автор: FORMAT   (19.10.2009 в 17:07)   личное сообщение
 
 

Во-первых код нихренаськи не читаем.
Во-вторых - а где текст процедур
CloseDataBase() и OpenDataBase() ?
А в-третьих Первая процедура скорее всего разрывает текущее соединение с базой данных
а вторая открывает его и чего-то в базу записывает. Скорее всего все созданное выше.
И потом не-понятно зачем таким гемором создавать таблицы. Это аналогично тому как через create table создавать таблицы в аксе. Часто пользовался этим оператором?

  Ответить  
 
 автор: FORMAT   (19.10.2009 в 17:16)   личное сообщение
 
 

Вааще-то не поленись прочитать в ADO.NET про sqldataadapter и как на его основании формируется dataset, datareader,datatable, ну и еще dataview. Так же изучи sqlcommand.
Разберись как на основании этих объектов вытягивать данные из базы и записывать в базу.
Это покорет 99% всех потребностей работы с данными.

  Ответить  
 
 автор: час   (20.10.2009 в 09:44)   личное сообщение
 
 

про ADO.NET вот какая пктрушка - там всё про язык программирования C# написано - все примеры
разобраться конечно можно - но фиговато.......

  Ответить  
 
 автор: FORMAT   (20.10.2009 в 11:13)   личное сообщение
 
 

Два варианта
Вариант1: у тебю есть уникальный шанс и стимул выучить С#
Вариант второй у мну в книге примеры есть и на VB . Если хочешь - постараюсь выслать книгу на мыло, или спроси Lukas-а. Он читал эту книжку. Может у него осталась ссылка на нее в нете.

  Ответить  
 
 автор: ГлазастыйМышь   (20.10.2009 в 11:47)   личное сообщение
 
 

учи С#, ближе к java, а это тоже потом пригодится

  Ответить  
 
 автор: час   (20.10.2009 в 12:01)   личное сообщение
 
 


Разберись как на основании этих объектов вытягивать данные из базы и записывать в базу.
Это покорет 99% всех потребностей работы с данными.



инструкция к действию

  Ответить  
 
 автор: KrukVN   (20.10.2009 в 15:36)   личное сообщение
 
 


там всё про язык программирования C# написано

http://www.developerfusion.com/tools/convert/csharp-to-vb/

  Ответить  
 
 автор: час   (20.10.2009 в 15:46)   личное сообщение
53 Кб.
 
 

Спасибо огромно,но,но...
я пока с vb.net разбираюся

  Ответить  
 
 автор: KrukVN   (20.10.2009 в 16:09)   личное сообщение
 
 

ну так а я про что? :)
по ссылке этой можно 'перевести' код с С.NET (что в Ваших примерах) на VB.NET

  Ответить  
 
 автор: час   (20.10.2009 в 12:04)   личное сообщение
 
 

Это пример - который удалось найти в инете, тот что даёт представление о возможностях создания баз и таблиц в них....
==================================


код нихренаськи не читаем



это тута он как то сбился в узкий столбец
в оригинале - он по правилам фоматирован... ......

  Ответить  
 
 автор: час   (20.10.2009 в 15:47)   личное сообщение
53 Кб.
 
 

Вот такой код простой а вызывает сбой

  Ответить  
 
 автор: час   (20.10.2009 в 15:49)   личное сообщение
 
 

И ваще - где этот consol - в который строки пишутся?
Console.WriteLine

  Ответить  
 
 автор: час   (20.10.2009 в 15:57)   личное сообщение
 
 

И как создать экземпляр класса в vb.net модуль класса ToDB
=======================
попробуй вот так
Dim Сlass_ASS As New ToDB

  Ответить  
 
 автор: KrukVN   (20.10.2009 в 16:14)   личное сообщение
 
 

может надо dbreader(0).tostring

  Ответить  
 
 автор: FORMAT   (20.10.2009 в 17:07)   личное сообщение
 
 

Покажи полностью строку подключения. А то на картинке она обрезана.


Попробуй конструкцию


Using dbReader as SqlDataReader = dbCmd.ExecuteReader()
Do While dbReader.Read()
Console.Writeline (dbReader("Наименование поля"))
Loop
dbReader.Close()
End Using

И пропиши вверху Impotrs System.Data.SqlClient - без этого работать не будет

Да и вообще не могу понять где ты это прописываешь?

  Ответить  
 
 автор: KrukVN   (20.10.2009 в 17:14)   личное сообщение
 
 

а зачем Impotrs System.Data.SqlClient?
там вроде оледб с аксом

  Ответить  
 
 автор: FORMAT   (20.10.2009 в 17:21)   личное сообщение
 
 

Тьфу,блин. Точно. Я что-то на скл сервере заклинился.
Час, выкинь ты этот акс нафиг. СКЛ сервер и работает быстрее и возможностей на порядок больше.
А синтаксис практически совпадает. Тут же ты акс используешь только как хранилище данных.
Да и скл сервер бесплатный ( экспресс версия )

  Ответить  
 
 автор: KrukVN   (20.10.2009 в 17:51)   личное сообщение
 
 

согласен. сходить на НЕТ из-за акса не стоит :)
можно, как вариант, мускуль попробовать. в общем что-нибудь клиент-серверное

  Ответить  
 
 автор: час   (21.10.2009 в 11:59)   личное сообщение
 
 

так ведь для обслуживания Mysql - понадобятся какие то проги.
В Access удобно всё и запросы создавать визуально и таблицы поправить...
======================================
и я думаю это на следующий этап освоения отложить
А пока=====
===========
картинка полностью отображает - весь код

import - там наверху прикручен
этот кот в модуле
Module1
sub maint

  Ответить  
 
 автор: час   (21.10.2009 в 12:06)   личное сообщение
 
 

И вот console.WriteLine - не хочет читатьстроку

  Ответить  
 
 автор: KrukVN   (21.10.2009 в 12:24)   личное сообщение
 
 


так ведь для обслуживания Mysql - понадобятся какие то проги.
В Access удобно всё и запросы создавать визуально и таблицы поправить...

Гляньте на него, ровесник Суворова, а все от акса отойти боится :)
да все есть и удобно в том числе

  Ответить  
 
 автор: час   (21.10.2009 в 14:13)   личное сообщение
 
 


===============================================
Да ты чё!!???

  Ответить  
 
 автор: час   (21.10.2009 в 14:17)   личное сообщение
 
 

http://hiprog.com/forum/read.php?id_forum=5&id_theme=4127&page=1

  Ответить  
 
 автор: час   (26.10.2009 в 09:05)   личное сообщение
 
 

Ещё winda gluchit опять всё звездой накрылось..........
чёрный экран смерти
какой то рок по VB.Net и мне дороги туда нет..

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList