Программирование (VB,C#,ASP,.NET): новости, советы, примеры (comp.soft.prog.vbaspsharpnet) : Рассылка : Subscribe.Ru

Система «Эксперт» - уникальная система, которая поможет решить, если не все, то многие Ваши проблемы с программированием и разработкой! Если у Вас есть какой-либо вопрос по программированию или разработке, то Вы всегда можете задать его нашим Экспертам! При этом каких-либо особых действий от Вас не потребуется! Просто отправьте Ваш вопрос на адрес mailto:expert@kbyte.ru, в теме письма укажите тему вопроса, в тексте – сам вопрос, и все! Эксперты дадут Вам ответ в течение 12-24 часов, на тот адрес, с которого Вы отправите вопрос. Все проще простого! Никакой регистрации и заполнение бесконечных форм, никаких наездов, оскорблений и насмешек со стороны гуру, просто спросите и получите ответ ;-)

Вопрос #000203: Программирование с использованием Win API (Visual Basic 6)

Автор вопроса: Игорь Голов // 13.05.2007 / 15:48

Здравствуйте, expert!

Задача:

Формируется группа переключателей для выбора стилей простого редактора текста
(ES_AUTOHSCROLL, ES_AUTOVSCROLL, ES_LEFT, ES_RIGHT, ES_CENTER, ES_LOWERCASE,
ES_UPPERCASE, ES_PASSWORD, ES_NUMBER, ES_OEMCONVERT), две кнопки и статическое окно.
Нажатие на первую кнопку приводит к созданию многострочного текстового
редактора с
заданными стилями. Нажатие на вторую кнопку отображает выделенный пользователем текст
в статическом окне

Спасибо!

-- 
С уважением,
Игорь Голов                         mailto:itshark@mail.ru

Отвечает: Алексей Немиро // 13.05.2007 / 15:48

Здравствуйте,

Мало понятно, что требуется..

0001:

0002:

0003:

0004:

0005:

0007:

0008:

0009:

0010:

0012:

0013:

0014:

0015:

0016:

0017:

0018:

0019:

    private void button1_Click(object sender, EventArgs e)

    {

      richTextBox1.ScrollBars = RichTextBoxScrollBars.Vertical;

      richTextBox1.Font = new System.Drawing.Font("Arial", 14, FontStyle.Italic | FontStyle.Bold);

    }

    private void button2_Click(object sender, EventArgs e)

    {

      richTextBox1.ScrollBars = RichTextBoxScrollBars.None;

    }

    private void button3_Click(object sender, EventArgs e)

    {

      Form myForm = new Form();

      Label myLabel = new Label();

      myLabel.Text = richTextBox1.SelectedText;

      myForm.Controls.Add(myLabel);

      myForm.Show();

    }

И в следующий раз, пожалуйста, не забывайте указывать язык, на котором
требуется это сделать.

-- 
С наилучшими пожеланиями, 
Немиро Алексей

Отвечает: Алексей Немиро // 13.05.2007 / 15:59

Здравствуйте,

Эх.. Опять язык в теме указали, на тему мы практически не смотрим,
только если на сайт (http://kbyte.ru/Expert/ ) заходим :))
В теле письма тоже надо указывать язык ;-)
А в теме надо отражать краткое содержание вопроса, это необходимо,
чтобы было удобней искать вопрос, тем у
кого он возникает, точнее тем,
у кого возникает подобный вопрос ;)

В принципе все что я ранее написал, легко делается на 6 бэйсике.

0001:

0002:

0003:

0005:

0006:

0007:

0008:

0009:

0010:

0012:

0013:

0014:

Private Sub Command1_Click()

  RichTextBox1.Font.Bold = True

End Sub

Private Sub Command2_Click()

  RichTextBox1.SelStart = 7

  RichTextBox1.SelLength = 9

  RichTextBox1.SelColor = RGB(255, 0, 0)

  MsgBox RichTextBox1.SelText

End Sub

Private Sub Form_Load()

  RichTextBox1.Text = "http://kbyte.ru"

End Sub

Если Вы не получили ответ, попробуйте обратиться в наш форум, там мы
сможем более детально рассмотреть этот вопрос http://kbyte.ru/form
Либо задайте вопрос повторно, но более подробно распишите что
требуется, хотя, в полне вожможно, что другие Экспреты еще могут
написать ответ сюда.

-- 
С наилучшими пожеланиями, 
Немиро Алексей

Вопрос #000198: Переключение_вкладок_в_TabStrip

Автор вопроса: Сергей // 13.05.2007 / 12:38

Добрый день,

Но не могли бы вы описать как, в режиме разработки
проекта, можно переключать вкладки в TabStrip на Visual Basic 6.0,
просто кликнуть на ней не получается, а как же тогда добавлять
элементы на вкладку.

                                Спасибо.

Отвечает: Алексей Немиро // 13.05.2007 / 12:38

Здравствуйте,

Разместите на форме элемент TabStrip и вставьте следующий код:

0001:

0002:

0003:

0004:

0005:

0006:

0007:

0008:

0009:

0010:

0011:

0013:

Private Sub Form_Load()

  'on error resume next

  'добавляем 10 вкладок

  Dim i As Long

  TabStrip1.Tabs.Clear

  For i = 0 To 9

    TabStrip1.Tabs.Add , , "Вкладка " & CStr(i + 1)

  Next i

  MsgBox "Добавлено 10 новых вкладок, нажмите Ok, и мы виберем 3 вкладку", vbInformation

  TabStrip1.Tabs(3).Selected = True

End Sub

-- 
С наилучшими пожеланиями, 
Немиро Алексей

Отвечает: Алексей Немиро // 13.05.2007 / 12:42

Здравствуйте,

В режиме разработки в Visual Basic 6.0 это не возможно, да и смысла не
имеет.


-- 
С наилучшими пожеланиями, 
Немиро Алексей

Отвечает: Алексей Немиро // 13.05.2007 / 12:49

Здравствуйте,

Наконец-таки дочитал конец вопроса :)))

Размещать элементы непосредственно на вкладках TabStrip также
не возможно, для этого нужно создать какой-нибудь контейнер, например
Frame. Для простоты работы с контейнерами, нужно установить им
(контейнерам) свойство Index равное индексу вкладки. Т.е.
сколько
вкладок, столько и контейнеров.
Также, в Visual Basic 6.0 существует более "продвинутый"
TabStrip - SSTab, который позволят делать все визуально, о чем Вы
спрашивали. Найти его можно в меню Проект => Компоненты
(Project => Components) и в появившемся окне найдите Microsoft Tabbed Dialog Control 6.0.



-- 
С наилучшими пожеланиями, 
Немиро Алексей

Вопрос #000195: Числа учетверёрнной точности...

Автор вопроса: Sergey1650 // 12.05.2007 / 12:10

Здравствуйте Эксперт. Подскажите, пожалуйста, как в Microsoft Visual Basic 6.0 можно (если можно) работать с числами учетверённой точности ну или, например, такими как 1e+2381
Если в VB6 перемножить два числа 1e+300 и 1e+300 то получается: Error 6 (переполнение) а должно быть 1e+600.
Помогите пожалуйста если это возможно в VB6.

Отвечает: Алексей Немиро // 12.05.2007 / 12:10

Здравствуйте,

Нет ничего не возможного ;)

*** Код модуля:

0001:

0003:

0004:

0005:

0006:

0007:

0008:

0009:

0010:

0011:

0012:

0013:

0014:

0015:

0016:

0017:

0018:

0019:

0020:

0021:

0022:

0023:

0024:

0025:

0026:

0027:

0028:

0029:

0030:

0031:

0032:

0033:

0034:

0035:

0036:

0037:

0038:

0039:

0040:

0041:

0042:

0043:

0044:

0046:

0047:

0048:

0049:

0050:

0051:

0052:

0053:

0054:

Option Explicit

Public Function MultTrah(ByVal N1 As String, ByVal N2 As String) As String

    On Error Resume Next

    Dim A() As Byte, B() As Byte, C() As Byte

    Dim Tmp As String, I As Long, L As Long, K As Long, J As Long

    If Len(N2) > Len(N1) Then

       Tmp = N1

       N1 = N2

       N2 = Tmp

    End If

    'iioeiece?iaaou anee ii?ii! Oaeea o?oaiinoe n ianneaii aicieea?o ec-ca calculation

    L = Len(N1)

    ReDim A(1 To L + 2 * (Len(N2) - 1))

    For I = 1 To L

        A(Len(N2) - 1 + I) = CByte(Mid$(N1, I, 1))

    Next

    L = Len(N2)

    ReDim B(1 To L)

    For I = 1 To L

        B(L - I + 1) = CByte(Mid$(N2, I, 1))

    Next

    L = Len(N1) + L

    ReDim C(1 To L)

    ''' Calculation

    L = Len(N1) + Len(N2) - 1

    K = Len(N2)

    For I = L To 1 Step -1

        For J = 1 To K

            If A(I + J - 1) * B(J) <> 0 Then

               C(I + 1) = C(I + 1) + A(I + J - 1) * B(J)

               C(I) = C(I) + Int(C(I + 1) / 10)

               C(I + 1) = C(I + 1) Mod 10

            End If

        Next

        C(I + 1) = C(I + 1) + 48

    Next

    C(1) = C(1) + 48

    ''' End Calculation

    Tmp = StrConv(C, vbUnicode)

    I = InStr(Tmp, Chr(0))

    If I > 0 Then Tmp = Left$(Tmp, I - 1)

    MultTrah = ResetZero(Tmp)

End Function

Public Function ResetZero(ByVal N1 As String) As String

    On Error Resume Next

    Dim I As Long, Tmp As String

    For I = 1 To Len(N1)

        If Mid$(N1, I, 1) <> "0" Then Exit For

    Next

    Tmp = Right$(N1, Len(N1) - I + 1)

    If Tmp = "" Then ResetZero = "0" Else ResetZero = Tmp

End Function

*** Код формы:

0001:

0002:

0003:

0004:

0005:

0006:

0007:

0008:

0009:

0010:

0011:

Private Sub Form_Load()

    Dim A As Single

    Dim N1 As String, N2 As String

    N1 = String$(1000, "6")

    N2 = String$(1000, "3")

    A = Timer

    Dim sRes As String

    sRes = MultTrah(N1, N2)

    MsgBox "1000-разрядные числа перемножились за " & Timer - A & " сек."

    MsgBox "Результат: " & sRes

End Sub

--
С наилучшими пожеланиями,
Немиро Алексей

Вопрос #000194: Вопрос_экспертам

Автор вопроса: Роман // 12.05.2007 / 11:56

Уважаемые господа Эксперты, подскажите пожалуйста как средствами VB написать гитарный тюнер? т.е. каким образом получать данные с микрофонного либо с линейного входа звуковой карты? 

Заранее благодарен.
Роман.

Отвечает: Алексей Немиро // 12.05.2007 / 11:56

Здравствуйте,

Попробуйте посмотреть примеры в этом разделе:
http://kbyte.ru/Samples/ShowGroup.aspx?id=12

Думаю,Вас заинтересуют вот эти примеры:

- Программа может записывать звук с микрофона, а затем воспроизводить его. Пример можно легко
усовершенствовать.
http://kbyte.ru/Samples/zip/rec-and-play.zip 


Данный исходный код демонстрирует как можно получать байты с звукого устройства Как определить звуковой спектор Как построит простой, половинчетый, линейный и точечный анализатор звукого сигнала Как работать с библиотекой "winmm.dll" Исходный код распростроняется свободно При добавлени изменений и модификации кода,
любезно прошу выслать мне копию В исходнике тчательно описаны все функции и команды Пример очень красиво получиося. Работоспасиобность 100%. Работает на всех ОС.
http://kbyte.ru/Samples/zip/SpectrumAnalyzer.rar 




-- 
С наилучшими пожеланиями, 
Немиро Алексей

Вопрос #000189: VisualBasic_6.0_-_разрешение_экрана

Автор вопроса: Евгений // 11.05.2007 / 14:46

Уважаемые Эксперты! 
У меня такой вопрос: Возможно ли сделать так, что при открытии программы, созданной в vb6, разрешение (размер экрана) будет устанавливатся на 1024х768,а при закрытии программы - восстанавливаться исходное разрешение. И если возможно, то как? 
Заранее благодарен!

Отвечает: Алексей Немиро // 11.05.2007 / 14:46

Здравствуйте,

0001:

0003:

0004:

0005:

0006:

0007:

0008:

0009:

0010:

0011:

0012:

0013:

0014:

0015:

0016:

0017:

0018:

0019:

0020:

0021:

0022:

0023:

0024:

0025:

0026:

0027:

0028:

0029:

0030:

0031:

0032:

0033:

0034:

0035:

0036:

0037:

0038:

0039:

0040:

0041:

0042:

0043:

0044:

0045:

0046:

0048:

0049:

0050:

0051:

0052:

0053:

0054:

0056:

0058:

0059:

0060:

0061:

0062:

0063:

0064:

0065:

0066:

0067:

0068:

0070:

0071:

0072:

0073:

0074:

0075:

0076:

0077:

0078:

0079:

0080:

0081:

0082:

0083:

0084:

0085:

0086:

0088:

0089:

0090:

0091:

0092:

0093:

0094:

0095:

0096:

0097:

0099:

0100:

0101:

0102:

0103:

0104:

Option Explicit

Const WM_DISPLAYCHANGE = &H7E

Const HWND_BROADCAST = &HFFFF&

Const EWX_LOGOFF = 0

Const EWX_SHUTDOWN = 1

Const EWX_REBOOT = 2

Const EWX_FORCE = 4

Const CCDEVICENAME = 32

Const CCFORMNAME = 32

Const DM_BITSPERPEL = &H40000

Const DM_PELSWIDTH = &H80000

Const DM_PELSHEIGHT = &H100000

Const CDS_UPDATEREGISTRY = &H1

Const CDS_TEST = &H4

Const DISP_CHANGE_SUCCESSFUL = 0

Const DISP_CHANGE_RESTART = 1

Const BITSPIXEL = 12

Private Type DEVMODE

    dmDeviceName As String * CCDEVICENAME

    dmSpecVersion As Integer

    dmDriverVersion As Integer

    dmSize As Integer

    dmDriverExtra As Integer

    dmFields As Long

    dmOrientation As Integer

    dmPaperSize As Integer

    dmPaperLength As Integer

    dmPaperWidth As Integer

    dmScale As Integer

    dmCopies As Integer

    dmDefaultSource As Integer

    dmPrintQuality As Integer

    dmColor As Integer

    dmDuplex As Integer

    dmYResolution As Integer

    dmTTOption As Integer

    dmCollate As Integer

    dmFormName As String * CCFORMNAME

    dmUnusedPadding As Integer

    dmBitsPerPel As Integer

    dmPelsWidth As Long

    dmPelsHeight As Long

    dmDisplayFlags As Long

    dmDisplayFrequency As Long

End Type

Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean

Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwFlags As Long) As Long

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long

Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, ByVal lpInitData As Any) As Long

Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Dim OldX As Long, OldY As Long, nDC As Long

Sub ChangeRes(X As Long, Y As Long, Bits As Long)

    Dim DevM As DEVMODE, ScInfo As Long, erg As Long, an As VbMsgBoxResult

    'Get the info into DevM

    erg = EnumDisplaySettings(0&, 0&, DevM)

    'This is what we're going to change

    DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL

    DevM.dmPelsWidth = X 'ScreenWidth

    DevM.dmPelsHeight = Y 'ScreenHeight

    DevM.dmBitsPerPel = Bits '(can be 8, 16, 24, 32 or even 4)

    'Now change the display and check if possible

    erg = ChangeDisplaySettings(DevM, CDS_TEST)

    'Check if succesfull

    Select Case erg&

        Case DISP_CHANGE_RESTART

            an = MsgBox("You've to reboot", vbYesNo + vbSystemModal, "Info")

            If an = vbYes Then

                erg& = ExitWindowsEx(EWX_REBOOT, 0&)

            End If

        Case DISP_CHANGE_SUCCESSFUL

            erg = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY)

            ScInfo = Y * 2 ^ 16 + X

            'Notify all the windows of the screen resolution change

            SendMessage HWND_BROADCAST, WM_DISPLAYCHANGE, ByVal Bits, ByVal ScInfo

            MsgBox "Everything's ok", vbOKOnly + vbSystemModal, "It worked!"

        Case Else

            MsgBox "Mode not supported", vbOKOnly + vbSystemModal, "Error"

    End Select

End Sub

Private Sub Form_Load()

    Dim nDC As Long

    'retrieve the screen's resolution

    OldX = Screen.Width / Screen.TwipsPerPixelX

    OldY = Screen.Height / Screen.TwipsPerPixelY

    'Create a device context, compatible with the screen

    nDC = CreateDC("DISPLAY", vbNullString, vbNullString, ByVal 0&)

    'Change the screen's resolution

    ChangeRes 640, 480, GetDeviceCaps(nDC, BITSPIXEL)

End Sub

Private Sub Form_Unload(Cancel As Integer)

    'restore the screen resolution

    ChangeRes OldX, OldY, GetDeviceCaps(nDC, BITSPIXEL)

    'delete our device context

    DeleteDC nDC

End Sub

-- 
С наилучшими пожеланиями, 
Немиро Алексей

Вопрос #000187: Как это делать!

Автор вопроса: Sergey1650 // 11.05.2007 / 11:08

Люди добрые подскажите чайнику как на VB6 работать с большими числами типа как MS Calkulyator. Plizzzzzz!

Отвечает: Алексей Немиро // 11.05.2007 / 11:08

Здравствуйте,

Не совсем понятен вопрос, так что извините, если ответ будет таким же
не понятным, или не полным ;)

0001:

0002:

0003:

0004:

0005:

0006:

Private Sub Form_Load()

  Dim x As Double, y As Double

  x = 1.5E+32

  y = 4.231E+233

  MsgBox x + y

End Sub

-- 
С наилучшими пожеланиями, 
Немиро Алексей

Вопрос #000185: доступ к базе данных

Автор вопроса: Алёна // 11.05.2007 / 04:38

Здравствуйте, expert.

Подскажите пожалуйста, как открыть базу данных, созданную в MS ACCESS
2000, в visual basic 6.0?    Когда я прописываю путь для ее открытия,
выдается сообщение: неправильный формат базы данных.

-- 
С уважением,
 Алёна                          mailto:ksd2002@list.ru

Отвечает: Алексей Немиро // 11.05.2007 / 04:38

Здравствуйте,

Создайте стандартный EXE-проекта. Добавьте ссылку на библиотеку MS
DAO 3.6 (меню Проект => Ссылки => Microsoft DAO 3.6 Object Library).
Для чтения данных из базы данных, используйте следующий код:

0001:

0002:

0003:

0004:

0006:

0007:

0009:

0010:

0012:

0013:

0014:

0015:

0016:

0017:

0018:

0019:

0020:

0021:

0022:

0023:

0024:

0025:

0026:

0027:

0028:

'создание необходимых объектов

Dim RS As DAO.Recordset 

Dim db As DAO.Database 

Dim strSQL As String 

'подключение к базе данных Access 

Set db = DAO.OpenDatabase(App.Path & "\db.mdb") 

'стандартный SQL-запрос на выборку данных 

strSQL = "SELECT * FROM tblMain ORDER BY id" 

  'выполнение запроса 

  Set RS = db.OpenRecordset(strSQL) 

  'проверка количества записей в БД 

  RS.MoveLast: RS.MoveFirst 

  If RS.RecordCount > 0 Then 

    'перебор данных 

    Do Until RS.EOF 

      'вывод данных 

      Debug.Print RS("id") 

      'следующая запись 

      'ВНИМАНИЕ: если эту строку пропустить 

      'получится бесконечный цикл 

      'и программа зависнет! 

      RS.MoveNext 

    Loop 

  End If

-- 
С наилучшими пожеланиями, 
Немиро Алексей

Вопрос #000182: помогите_с_кодом_на_Математические_операции.

Автор вопроса: Лариса Ульянкина // 08.05.2007 / 17:28

1. Обработка чисел.
Найти вторую цифру дробной части вещественного числа.

2. Обработка числовой последовательности с заданным количеством элементов.
В числовую переменную последовательно вводится N ненулевых целых чисел. Определить количество чередований знаков чисел у этой последовательности.

3. Обработка числовой последовательности с неопределенным
количеством элементов.
   Сколько чередований знаков у 3-значных членов вводимой последовательности с
   неопределенным числом элементов?

Отвечает: EROS // 08.05.2007 / 17:28

Здравствуйте Лариса Ульянкина
1. Не указан язык программирования
2. Система "Эксперт" предназначена для помощи по программированию, а
   не для выполнения домашнего задания
3. Дайте математическое решение Ваших заданий и вопросы по написанию
   кода, которые у Вас вызвали трудности.
-- 
С уважением,
 EROS

Вопрос #000179: TcpListener,TcpClient,передача данных.

Автор вопроса: Greg // 08.05.2007 / 13:00

C# / Framework 3

Здравствуйте Эксперты,
Решил я тут программу написать для передачи данных по интернету, или по 
влс - не важно. Дайте пожалуйста пример сервера и клиента- думаю хватит 
TcpListener и TcpClient и пр. в сокетах...
Я по сети не работал ещё, а говорят- сетевые приложения- будущее.

И ещё- передавать я буду текст (начну
с чата).

------------------------------
Спасибо за внимание.

Отвечает: Алексей Немиро // 08.05.2007 / 13:00

Здравствуйте,

0001:

0002:

0004:

0005:

0006:

0007:

0008:

0009:

0010:

0011:

0013:

0014:

0015:

0016:

0017:

0018:

0020:

0021:

0022:

0023:

0024:

0025:

0026:

0027:

0028:

0030:

0032:

0033:

0035:

0037:

0038:

0039:

0040:

0041:

0042:

0043:

0044:

0045:

0047:

0049:

0050:

0051:

0052:

0053:

0054:

0055:

0056:

0057:

0058:

0059:

0060:

0061:

0062:

0063:

0064:

0065:

public static void Main()

{    

  try

  {

    // порт для прослушивания - 13000.

    Int32 port = 13000;

    IPAddress localAddr = IPAddress.Parse("127.0.0.1");

    // TcpListener server = new TcpListener(port);

    TcpListener server = new TcpListener(localAddr, port);

    // начинаем прослушивание

    server.Start();

    // создаем буфер чтения

    Byte[] bytes = new Byte[256];

    String data = null;

    // Enter the listening loop.

    while(true) 

    {

      Console.Write("Waiting for a connection... ");

      // Perform a blocking call to accept requests.

      // You could also user server.AcceptSocket() here.

      TcpClient client = server.AcceptTcpClient();            

      Console.WriteLine("Connected!");

      data = null;

      // Get a stream object for reading and writing

      NetworkStream stream = client.GetStream();

      Int32 i;

      // Loop to receive all the data sent by the client.

      while((i = stream.Read(bytes, 0, bytes.Length))!=0) 

      {   

        // Translate data bytes to a ASCII string.

        data = System.Text.Encoding.ASCII.GetString(bytes, 0, i);

        Console.WriteLine(String.Format("Received: {0}", data));

        // Process the data sent by the client.

        data = data.ToUpper();

        Byte[] msg = System.Text.Encoding.ASCII.GetBytes(data);

        // Send back a response.

        stream.Write(msg, 0, msg.Length);

        Console.WriteLine(String.Format("Sent: {0}", data));            

      }

      // отключение

      client.Close();

    }

  }

  catch(SocketException e)

  {

    Console.WriteLine("SocketException: {0}", e);

  }

  Console.WriteLine("\nHit enter to continue...");

  Console.Read();

}

-- 
С наилучшими пожеланиями, 
Немиро Алексей

Вопрос #000178: SQL, как с ним работать?

Автор вопроса: Александр // 08.05.2007 / 12:36

Уважаемые эксперты, я никогда не работал с SQL(имеется в виду что я никогда
не работал ни с одним видом SQL но у меня установлен SQL Server встроенный в
пакет VS 2005 .NET). Вопрос заключается в следующем:
1 - как создать базу SQL? Т.е. какую программу запускать, что в ней жать и
как это дело сохранять... Из SQL знаю только запросы...
2 - как взаимодействовать
с ней в ASP.Net. Т.е. как подключиться к ней(т.е
что изменилось в строке подключения, если можно на примере) 
3 - нюансы взаимодействия SQL и ASP.NET 2.0. Т.е. что ещё изменяется при
использовании SQL если ранее был использован Access? + Слова Алексея - "Если
юзать SQL Server, то можно использовать встроенные средства ASP .NET и
забыть про щифрование и аторизацию, все будет на полуавтомате, даже код не
надо писать :))", если можно поконкретнее? Желательно с примерами :)

Отвечает: Алексей Немиро // 08.05.2007 / 12:36

Здравствуйте,

у меня установлен SQL Server встроенный в пакет VS 2005 .NET)

рекомендую найти SQL Server Management какой-нибудь, лучше конечно
SQL Server Management Studio Develope Edition, но для начала
хватит и Express, скачать можно на сайте Microsoft, весит около 40 метров.

1 - как создать базу SQL? Т.е. какую программу запускать, что в ней жать и
как это дело сохранять... Из SQL знаю только запросы...

запускаешь скаченную SQL Server Management Studio Express, появится
окно авторизации, если база находится, или будет находиться в
твоем компьютере, то ставишь Windows Authentication и просто наживаешь
на кнопку "Connect" (в поле Server name должено быть имя твоего
компьютера). Если база
находится на удаленном сервере, то
выбираешь SQL Server Authentication, вводишь адрес сервера, логин и
пароль. Ну а далее, надо создать таблицу, там есть кнопка "New Query",
нажимаешь на нее, появляется текстовое окно, туда пишешь:

CREATE TABLE MyFirstTable (
id int not null primary key identity,
dateCreated datetime null,
name1 nvarchar(255) null,
name2 nvarchar(255) null
)

ну и все что душе угодно ;)

При первом
запуске там должны быть несколько системных баз, если
требуется создать новую, то просто покликакай по менюшкам, там все
просто. Таблицы также можно создавать, а также просматривать  и
редактировать. Но запросами все это делать гораздо быстрее..

2 - как взаимодействовать с ней в ASP.Net. Т.е. как подключиться к ней(т.е
что изменилось в строке подключения, если можно на примере)

Также как и с Access, только использовать оюбъекты из Sql.SqlClient.

3 - нюансы взаимодействия SQL и ASP.NET 2.0. Т.е. что ещё изменяется при
использовании SQL если ранее был использован Access?

True = 1, False = 0, ну и много других ньюансов :)

Слова Алексея - "Если
юзать SQL Server, то можно использовать встроенные средства ASP .NET и
забыть про шифрование и авторизацию, все будет на полуавтомате, даже код не
надо писать :))", если можно поконкретнее? Желательно с примерами

Какого такого Алексея, я такого не знаю..


-- 
С наилучшими пожеланиями, 
Немиро Алексей

Чтобы задать Ваш вопрос, отправьте его на адрес expert@kbyte.ru

Раздел Эксперт на сайте Kbyte.Ru

Наверх

Голосование на Kbyte.Ru

Голосование на Kbyte.Ru через E-Mail!
Чтобы проголосовать через E-Mail, выберите ответ, если у Вас настроен почтовый клиент, должно появиться окно с новым сообщением, ничего не изменяйте, а просто отправьте пустое письмо и в течение некоторого времени Ваш голос будет зачтен.
Для голосования через сайт, перейдите по этой ссылке: http://kbyte.ru/Voting/.

Пользуетесь ли Вы системой «Эксперт» на нашем сайте?
На нашем сайте работает система «Эксперт», через которую любой желающий может задать вопрос Экспертам в области программирования и информационных технологий.
Да, только ей и пользуюсь! (1)
Да, периодически использую (2)
Вашей – нет, но иногда использую другие подобные системы (0)
Нет, предпочитаю использовать форумы (3)
Нет, мне это вообще не надо (0)
А как ей пользоваться? (0)
Нет, а что это? (1)

Всего голосов: 7

Голосование на Kbyte.Ru

Наверх

Последнее на форумах

Зайдите по этой ссылке, очень интересный сайт!! | Автор: Екатерина
Добавлено: 13.05.2007 / 16:05 | ответов: 0 | просмотров: 2

http://romashkovaekaterina.mylivepage.ru/

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

Медиа | Автор: pasha
Добавлено: 13.05.2007 / 13:52 | ответов: 0 | просмотров: 3

Как узнать длительность медиафайла, чтобы прикрутить прогресс?

2. Существуют ли функции приостановки и остановки м/файов? (кроме (pause C:\1.vaw) и т. п.)?

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

Проблема с проектом, помогите! | Автор: ZXC
Добавлено: 13.05.2007 / 13:07 | ответов: 10 | просмотров: 17

Ситуация такая, у меня Microsoft Visual Basic 2005 Express Edition
Не давно заметил что в проекте после запуска не работают изменения! т.е кинули на форму кнопку жмем F5 программа запускается НО, этой кнопки на форме нет, то же самое и с кодом, изменения вообще не вносятся после запуска, зато когда компилим программу, заходим в папку Release и запускаем её там, то всё ОК, все изменения видны, что делать? всё перепробовал, и чистил папку Debug и проект копировал в другое место, не чего не помогает, случалось такое у ково нибуть ещё? help!

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

Access DB | Автор: pasha
Добавлено: 13.05.2007 / 12:44 | ответов: 1 | просмотров: 5

У меня есть Access база и пространство имен с классами для полного или частичного сбора данных о книге.
Вот классы

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
025:
026:
027:
028:
029:
030:
031:
032:
033:
034:
035:
036:
037:
038:
039:
040:
041:
042:
043:
044:
045:
046:
047:
048:
049:
050:
051:
052:
053:
054:
055:
056:
057:
058:
059:
060:
061:
062:
063:
064:
065:
066:
067:
068:
069:
070:
071:
072:
073:
074:
075:
076:
077:
078:
079:
080:
081:
082:
083:
084:
085:
086:
087:
088:
089:
090:
091:
092:
093:
094:
095:
096:
097:
098:
099:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
Namespace
Book
  Public MustInherit Class clsBooks
    Private _Name As String
    Private _Annotation As String
    Public BookCollection As Collection = New Collection
    Public _Only As Boolean




    Public Property Name() As String
      Get
        Return _Name
      End Get
      Set(ByVal Value As String)
        _Name = Value

      End Set
    End Property
    Public Property Annotation() As String
      Get
        Return _Annotation
      End Get
      Set(ByVal Value As String)
        _Annotation = Value
      End Set
    End Property
    Public Property OnlyRead() As Boolean
      Get
        Return _Only
      End Get
      Set(ByVal Value As Boolean)
        _Only = Value
      End Set
    End Property

  End Class

  Public MustInherit Class Authors
    Inherits clsBooks
    Private _Author1 As String
    Private _Author2 As
String
    Private _OtherAuthors
    Private _Proof_Reader As String
    Private _Editor As String
    Private _Translator As
String
    Public Property Author1()
      Get
        Return _Author1
      End Get
      Set(ByVal
Value)
        _Author1 = Value
      End Set
    End Property
    Public Property Author2()
      Get
        Return _Author2
      End Get
      Set(ByVal Value)
        Author2 = Value
      End Set
    End
Property
    Public Property OtherAuthors()
      Get
        Return _OtherAuthors
      End Get
      Set(ByVal Value)
        _OtherAuthors = Value
      End Set
    End Property
    Public Property Editor()
      Get
        Return _Editor
      End Get
      Set(ByVal Value)
        _Editor = Value
      End Set
    End Property

    Public Property Proof_Reader()
      Get
        Return _Proof_Reader
      End Get
      Set(ByVal Value)
        _Proof_Reader = Value
      End Set
    End Property
    Public Property Translator()
      Get
        Return _Translator
      End Get
      Set(ByVal Value)
        _Translator = Value
      End
Set
    End Property
  End Class
  Public MustInherit Class BookAllInfo

    Inherits Authors

    Private _ISBN
As String
    Private _BBK As String
    Private _Publishing As String
    Private _Publicyear As String
    Public Property ISBN()
      Get
        Return _ISBN
      End Get
      Set(ByVal Value)
        _ISBN
= Value
      End Set
    End Property
    Public Property BBK()
      Get
        Return
_BBK
      End Get
      Set(ByVal Value)
        _BBK = Value
      End Set
    End Property
    Public Property Publishing()
      Get
        Return _Publishing
      End Get
      Set(ByVal Value)
        _Publishing = Value
      End Set
    End Property
    Public Property Publicyear()
      Get
        Return _Publicyear
      End Get
      Set(ByVal Value)
        _Publicyear = Value
      End Set
    End
Property
  End Class
End Namespace

Наверное кто english знает, поймет :)

001:
002:
003:
004:
005:
006:
007:
'General Declarations
Imports Библиотека.Book

'Создаем переменную для управления
Dim bk As New AllBookInfo

'Присваиваем свойсвам переменной тексты из текстбоксов (эту часть я опустил)

Мне, собственно, нужен код для сохранения в бд data.mdb (table books) значений свойств переменной, каждое
свойство в свое поле записи в таблице.

Всем спасибо!

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

Конкурс на лучший пример кода! | Автор: Алексей
Добавлено: 13.05.2007 / 11:31 | ответов: 0 | просмотров: 5

Господа, почему так мало участников в конкурсе на лучший пример кода?
Всего два участника, притом, что конкурс проводится с 17 марта?! Уже в конце мая конкурс будет завершен и будут подведены итоги!

Так почему же так мало участников?

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

MsSQL и ASP.NET | Автор: Kolya007
Добавлено: 12.05.2007 / 19:28 | ответов: 2 | просмотров: 9

Какой из SQL Server Management наиболее функционален? Какое расширение имеет БД? И как к ней подключится через ASP.NET?

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

Система надстроек | Автор: pasha
Добавлено: 12.05.2007 / 13:35 | ответов: 1 | просмотров: 14

Как реализовать систему надстроек? Т. Е. Я создал File Manager, и хочу, чтобы надстройки открывали файлы. Например, для *.txt надстройка Блокнот. и т. д. Мне нужен код
1. "Запоминания", какая надстройка что открывает.
2. Как обратиться к программе (напр. Adobe Reader) и приказать открыть определённый файл (как в Проводнике)
В общем принцип Проводниковский, только программы упорядочены как надстройки, а не "Открыть с помощью"

Заранее спасибо, кому что непонятно, пишите в этот топик.

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

ICQ | Автор: Bille Gates
Добавлено: 12.05.2007 / 10:46 | ответов: 0 | просмотров: 6

ICQ 6.0
http://download.icq.com/download/

Версия: 6.0
Лицензия: Freeware (бесплатная)
Язык интерфейса: Английский
Размер: 11,1 Mb

Описание:
Очередное обновление всемирно известного интернет пейджера icq. Пока он доступен только в Английской версии. ICQ6 поддерживает функции голосового разговора, веб камера, а с 1 июня как обещают разработчики должна появиться функция SMS.

Ссылка для загрузки:
http://download.icq.com/download/

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

Смена часового пояса, программно | Автор: ZXC
Добавлено: 12.05.2007 / 00:58 | ответов: 3 | просмотров: 19

Собственно сам вопрос к тем кто работал с временем, как программно можно сменить часовой пояс? можно не по названию а по разнице т.е
Имеем часовой пояс
(GMT -05:00)
надо сменить на
(GMT -03:00)
Кто работал с временем help!

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

Определение местонахождения исполняемого файла и создание возле него *.txt | Автор: A_XIII
Добавлено: 12.05.2007 / 00:26 | ответов: 1 | просмотров: 15

Постараюсь объяcнить проблему: Мне нужен код модуля, который после запуска моего ексешника создавал возле него txt-документ с определенной информацией, спасибо!

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

Наверх

Последние статьи

Выбор языка программирования для научных работ (2-я редакция)
Автор: Юдин С. Ю. | добавлено: 15.03.2007 / 02:49 | просмотров: 1240

Идея написания этой статьи возникла после того, как на одном из сайтов по физике http://physics.nad.ru/aniboard/messages/291.html я обнаружил интересный алгоритм моделирования движения тела в поле постоянной напряженности по различным направляющим. Вернее, меня заинтересовал не весь алгоритм, т.к. основа их всех одна (принцип Даламбера, если не считать квазиалгоритма с применением уравнений Лагранжа 2-го рода) и различаются они только способом определения реакций в месте соприкосновения тел. Вот именно не известный мне способ определения реакций меня и заинтересовал, но код программы...

Работаем с MIME
Автор: Немиро Алексей | добавлено: 29.11.2006 / 14:46 | просмотров: 1371

Не так давно мне пришлось немного поработать MIME (Multipurpose Internet Mail Extension) - это стандарт почтовых сообщений, в РуНете (Russian Internet) я не нашел нормального описания спецификации MIME, и посему решил написать небольшую статейку на эту тему. В данной статье вы узнаете об основных особенностях и стандартах MIME, а также научитесь «читать» MIME с использованием синтаксиса языка Visual Basic .NET 2005.

Visual Basic 2003/2005 .NET: Взаимодействие с Microsoft Word 2000 и выше
Автор: Хабибулин А. (aka Bille Gates) | добавлено: 05.10.2006 / 12:15 | просмотров: 2641

Эта статья будет полезна только тем людям, у которых установлен Microsoft Word 2000 или выше! Мы научимся делать всё возможное с документами MS WORD при помощи VB 2003/2005 .NET.

Visual Basic .NET: Работа с файлами
Автор: Хабибулин А. (aka Bille Gates) | добавлено: 04.10.2006 / 10:35 | просмотров: 3207

В этой статье мы поговорим о работе с файлами. Научимся добавлять и удалять файлы/каталоги, записывать и читать данные из файла и.т.д.

ASP .NET 2.0: Эталонные страницы
Автор: Немиро Алексей | добавлено: 27.08.2006 / 04:08 | просмотров: 2403

Как известно, большинство сайтов имеют однотипную, общепринятую разметку страниц, неотъемлемой частью которой является верхний и нижний колонтитулы и, пожалуй, самая главная часть - тело страницы, хотя конечно, бывают и исключения. ASP .NET 2.x предлагает уникальный метод создания одинаковой разметки для страниц сайта – это использование, так называемых, эталонных страниц. Если вы работали с ранними версиями ASP(ASP, ASP .NET 1.x), то, наверное, помните, что постоянно приходилось копировать HTML-код страницы с элементами ASP. Конечно, использование включаемых файлов (include) в классическом ASP, и пользовательских элементов управления (*.ascx) в ASP .NET 1.x, значительно упрощало разработку Web-сайтов, но это не сравнится с тем, что предлагает ASP .NET 2.x.

Описание ошибок VB
Автор: [root] | добавлено: 29.07.2006 / 06:58 | просмотров: 3429

В данном обзоре содержится русскоязычное описание ошибок Visual Basic 5.0/6.0.

Горячие клавиши VB 6.0
Автор: [root] | добавлено: 20.07.2006 / 13:21 | просмотров: 1816

В данном обзоре рассмотрены горячие клавиши Visual Basic 5.0/6.0, которые значительно ускоряют процесс разработки и тестирования программ.

ASP .NET 2.0: Файл Global.asax
Автор: Немиро Алексей | добавлено: 17.07.2006 / 18:04 | просмотров: 2191

Файл Global.asax является необязательным файлом приложений ASP .NET и содержит дополнительный код, отвечающий за обработку событий, происходящих на уровне приложения. Этот файл должен находиться в корневом каталоге Web-приложения. В ASP .NET 1.1 сей файл автоматически создавался Visual Studio при создании нового Web-проекта, в ASP .NET 2.0 Visual Studio Global.asax автоматически не создает, но его можно добавить в проект вручную. Все изменения, внесенные в файл Global.asax отслеживаются средой ASP .NET, и приложение перезагружается...

Как узнать страну по IP-адресу?
Автор: Amit Gupta | добавлено: 17.07.2006 / 08:09 | просмотров: 35313

Интернет широко распространен в большинстве стран и континентов. Узнать страну посетителей вашего веб-сайта может быть не легкой задачей, особенно если вы не знаете как это сделать...

Visual Basic 6.0 - Экспорт DataReport в Microsoft Word
Автор: John D. Conway | добавлено: 17.07.2006 / 06:16 | просмотров: 3140

В этой статье мы создадим пример базы данных Microsoft Access и пользовательский интерфейс в среде Visual Basic 6.0. Сделать это будет относительно несложно, поскольку для работы с нашей базой данных мы будем использовать компонент ADODC Componenet (Microsoft ADO Data Control 6.0 (OLEDB)). Мы добавим DataEnvironment и DataReport и буквально, в течении минуты, мы уже сможем экспортировать наш DataReport в Microsoft Word Document. (.doc)...

Статьи на Kbyte.Ru

Наверх

Интересные коды и решения

Как разрешить вводить в TextBox только цифры?
Дата добавления: 04.08.2006 / 16:55 | просмотров: 560 | платформа: ASP .NET (VB)

Как распечатать Web-страницу?
Дата добавления: 17.08.2006 / 17:58 | просмотров: 475 | платформа: VB

Как преобразовать байты в килобайты?
Дата добавления: 31.07.2006 / 12:38 | просмотров: 425 | платформа: VB

Удаление куков (Cookies)
Дата добавления: 01.08.2006 / 12:04 | просмотров: 511 | платформа: ASP

Как удалить все ноды (Nodes) из TreeView?
Дата добавления: 24.03.2007 / 12:15 | просмотров: 70 | платформа: VB .NET

Как узнать IP-адрес текущего посетителя?
Дата добавления: 31.07.2006 / 15:34 | просмотров: 845 | платформа: ASP .NET (VB)

Анализ даты стандарта RFC822
Дата добавления: 24.03.2007 / 10:58 | просмотров: 69 | платформа: RegEx

Как узнать имя текущего соединения с Интернет?
Дата добавления: 31.07.2006 / 12:53 | просмотров: 532 | платформа: VB

Как преобразовать десятичное число в восьмиричное?
Дата добавления: 16.08.2006 / 20:36 | просмотров: 406 | платформа: VB

Как определить текущую раскладку клавиатуры?
Дата добавления: 16.08.2006 / 19:38 | просмотров: 400 | платформа: VB

Универсальные коды на Kbyte.Ru

Наверх

Юмор на Kbyte.Ru

Проводил я как-то курсы для учителей информатики. Народ собрался уже поднатасканный и юзающий классы УКНЦ. Для тех кто не знает такого зверя, поясню - машинка семейства ДВК-2,3 только по немного круче. И на второй или третий день сдох монитор у одной из машин. Менять было лениво и я подключил монитор от соседней сдохшей машины, оставив все на своих местах. Первый день сам глючил по черному и веселил народ тем, что набирал команды на нерабочей клаве и не врубался почему их не видно на экране. Но самый прикол случился на следующий день. Показываю народу одну программку. Один из учителей постоянно отвлекается, но услышав, что прога защищены от случайного сброса, проявляет активный интерес. Просит разрешить проверить самому. Я не возражаю. Тогда он на нерабочей клаве жмет пимпочку "Стоп". Прога работает. И хотя и у нее действительно была защита от нажатия на эту клавишу, мне становится весело.
- Это еще что - говорю я
И продолжаю:
- У нее есть защита и от reset-а
Мужик недоверчиво улыбается. А я предлагаю ему проверить. Он делает reset опять же на нерабочей машине и улыбка у него сменяется недоуменеем. Он знает, что это в принципе не возможно, но ведь, как ему кажется, видел своими глазами. Народ начинает угорать. А я продолжаю веселиться вовсю и заявляю мужику, что прога защищена даже от выключения питания. Он отвечает, что уж этого то точно не возможно и щелкает все на той же тачке сетевым тумблером. Его лицо становится тупее всего троллейбусного парка, он видит на экране работающую программу. Народ от хохота чуть не попадал со стульев на пол. И только тут до этого товарища дошло, что попросту разыграли. Человек оказался с чувством юмора и сам не раз вспоминал до конца курсов об этом приколе со смехом.

Рейтинг: 68
Всего голосов: 100