beginin'

[Inquisitor]

Привет, господа программисты!
Хочу получить Ваш совет по следующему вопросу :
стоит следующая задача - необходимо написать
АРМ "Документооборот", т.е. программу работающую с
БД находящейся на сервере, при этом доступ к БД
должен осуществляться через web - интерфейс.
Посоветуйте пожалуйста, на чем лучше (VB, VB.NET ...)
реализовать данную задачу, исходя из того, что навыки
программирования на VB на примитивном уровне. Заранее спасибо.
p.s. По силам ли вообще такая задача студенту ???

[alibek]

Пожалуй, лучше VB.NET.
А насчет того, что по силам или нет - зависит от уровня знаний.
Но (сугубо ИМХО) лучше не берись

[Шурик]

Да простят меня люди.....
Пользуйся IBase. Короче говоря Delphi

[codemaster]

Привет, господа программисты!
Хочу получить Ваш совет по следующему вопросу :
стоит следующая задача - необходимо написать
АРМ "Документооборот", т.е. программу работающую с
БД находящейся на сервере, при этом доступ к БД
должен осуществляться через web - интерфейс.

ключевое слово ASP
что касается VBNet то если не изучал VB1-6 то
и не стоит браться за VBNET . Для NET есть C# все остальное для NET - "притянутое за уши"

[hCORe]

Для NET есть C# все остальное для NET - "притянутое за уши"

Хммм... VC.NET действительно какой-то дурацкий по сравнению с MSVC++6, а вот насчет VB.NET ты не прав. А ASP.NET, пожалуй, самое оптимальное решение этой проблемы. Правда надо хорошо знать хотя бы азы VB.NET

[Inquisitor]

Тогда чего советуете - на форум Delphi идти ?
На VB я писал уже - программную оболочку для работы с локальной БД (среднего размера), примитивная опять же, без use SQL, поэтому именно использовании SQL и интересует, а DELPHI просто не нравиться да и разбираться в ней не охота

[Inquisitor]

Dim ModeAdd As Boolean
Dim ModeEdit As Boolean
Dim CurrentProdCode As String
Dim CurrentProdName As String

Private Sub CmdAdd_Click() {Кнопка добавить}

If Not ModeAdd Then

ModeAdd = True '
CmdAdd.Caption = "Сохранить"
CmdAdd.Refresh

CmdEdit.Enabled = False
CombOrg.Enabled = True
CombOrg.Text = ""

For i = 0 To 2
Text1(i).Enabled = True ' очистить
Text1(i).Text = ""
Next

Else
If Not (Len(Trim(CombOrg.Text)) > 0) Then
MsgBox "Введите наименование", , ""
Exit Sub
End If

CmdAdd.Caption = "Добавить"
CmdAdd.Refresh
ModeAdd = False


Data1.Recordset.AddNew
Data1.Recordset.Fields(1) = Mid(Trim(CombOrg.Text), 1, 60)
Data1.Recordset.Fields(2) = Mid(Trim(Text1(1).Text), 1, 50)
Data1.Recordset.Fields(3) = Mid(Trim(Text1(2).Text), 1, 40)
Data1.Recordset.Fields(4) = Mid(Trim(Text1(0).Text), 1, 40)
Data1.Recordset.Update

' Перезагрузка формы
Form_Load
End If

End Sub
Private Sub CmdDel_Click()
'удаление текущей записи

If CurrentProdCode = "1" Then
Exit Sub
End If

CmdDel.Enabled = False
CmdEdit.Enabled = False

Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If CurrentProdCode = Data1.Recordset.Fields(0) Then
Data1.Recordset.Delete
Exit Do
End If
Data1.Recordset.MoveNext
Loop
Form_Load

End Sub

Private Sub CmdEdit_Click() {кнопка редактировать}

If CurrentProdCode = "1" Then
Exit Sub
End If

CmdDel.Enabled = False
CmdAdd.Caption = "Сохранить"
CmdAdd.Refresh

ModeAdd = True

CombOrg.Enabled = True
For i = 0 To 2
Text1(i).Enabled = True
Next
End Sub

Private Sub CmdExit_Click()
Unload Me
Form2.Show
End Sub

Private Sub CombOrg_Click()

CurrentProdName = CombOrg.Text
CurrentProdCode = List1.List(CombOrg.ListIndex)

For i = 0 To 2
Text1(i).Enabled = False
Text1(i).Text = ""
Next

If Not CurrentProdCode = "1" Then
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF

If CurrentProdCode = Data1.Recordset.Fields(0) Then

Text1(0).Text = Data1.Recordset.Fields(4)
Text1(1).Text = Data1.Recordset.Fields(2)
Text1(2).Text = Data1.Recordset.Fields(3)


CmdEdit.Enabled = True
Exit Do
End If

Data1.Recordset.MoveNext
Loop
CmdEdit.Enabled = True
CmdDel.Enabled = True

Else
CmdEdit.Enabled = False
CmdDel.Enabled = False
End If
End Sub

Private Sub Form_Load()
ModeAdd = False
ModeEdit = False


For i = 0 To 2
Text1(i).Enabled = False
Text1(i).Text = ""
Next


strDBNameB = App.Path & "\db1.mdb"
cTblName1 = "Изделия"

Data1.DatabaseName = strDBNameB
Data1.RecordSource = cTblName1
Data1.ReadOnly = False
Data1.Refresh


CombOrg.Clear
List1.Clear

If Data1.Recordset.RecordCount > 0 Then
CombOrg.Enabled = True
Data1.Recordset.MoveFirst
CombOrg.Text = Trim(Data1.Recordset.Fields(1))
Text1(0).Text = Data1.Recordset.Fields(4)
Text1(1).Text = Data1.Recordset.Fields(2)
Text1(2).Text = Data1.Recordset.Fields(3)

Do While Not Data1.Recordset.EOF
CombOrg.AddItem Trim(Data1.Recordset.Fields(1))
List1.AddItem Data1.Recordset.Fields(0)
Data1.Recordset.MoveNext
Loop
Else
CmdEdit.Enabled = False
CmdDel.Enabled = False
CombOrg.Enabled = False
End If
End Sub





Где ошибка при редактировании подскажите пожалуйста

[codemaster]

Для NET есть C# все остальное для NET - "притянутое за уши"

Хммм... VC.NET действительно какой-то дурацкий по сравнению с MSVC++6, а вот насчет VB.NET ты не прав. А ASP.NET, пожалуй, самое оптимальное решение этой проблемы. Правда надо хорошо знать хотя бы азы VB.NET

Сходи на любой job портал и сравни количество предложений по работе на С# и VB.Net , зарплату и пр .

VB закончился на 6 версии как это не печально

[hCORe]

По-моему, codemaster, ты слишком много внимания уделяешь ДЕНЬГАМ, а на ИНТЕРЕСУ дела. А я например до сих пор программер-любитель в душе, хотя было уже несколько успешных коммерческих проектов

Да, за C# дают в злачных местах $25000+ а за VB.NET $1250+. Ну и что! Не тебе же у них работать

А VB не умер в шестой версии, просто VB.NET это уже другой язык, со своими особенностями и приколами.

[A.A.Z.]

2 Inquisitor,
Приаттачь сюда весь проект, а то так несколько непонятно...

[codemaster]

По-моему, codemaster, ты слишком много внимания уделяешь ДЕНЬГАМ, а на ИНТЕРЕСУ дела. А я например до сих пор программер-любитель в душе, хотя было уже несколько успешных коммерческих проектов

Деньги определяют интерс.

Да, за C# дают в злачных местах $25000+ а за VB.NET $1250+. Ну и что! Не тебе же у них работать

уже работаю

А VB не умер в шестой версии, просто VB.NET это уже другой язык, со своими особенностями и приколами.

Он действительно умер для NET разработан собств. язык С#
Речь шла о том что чел. не имеет навыков в VB но хочет быть на предовых рубежах.

[GSerg]

А позвольте спросить, что это за злачные места, и почему сей язык столь ценится?

[hCORe]

$25000+ "Опытный специалист по работе с СУБД SQL Server и Oracle с использованием языка C# среды .NET" - вот та самая вакансия, о которой я говорил

[GSerg]

А это не в год?

[hCORe]

Не знаю

[MEMBER]

жЫрное предложение.
Похоже работать придётся как ослу.