Форум программистов, компьютерный форум, киберфорум
Наши страницы
C#: Базы данных, ADO.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
SergKr
65 / 39 / 3
Регистрация: 07.12.2010
Сообщений: 327
1

Не могу из TextBox1 записать в БД

22.03.2011, 15:10. Просмотров 676. Ответов 4
Метки нет (Все метки)

vb.net
1
2
 Dim COMMAND = New OleDbCommand("INSERT INTO [Пользователи] (" &
                                       "Фамилия) VALUES) & TextBox1.Text & (")
Уже чего только не перепробовал... Не помогает....
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.03.2011, 15:10
Ответы с готовыми решениями:

Как записать результат запроса (3 столбца varchar(50)) в TextBox1.Text
Доброго времени суток. Как ни странно не смог в сети найти четкого ответа на вопрос: Есть код:...

Записать в адрес Jordan цифры, которые находятся в TextBox1
VAM.WriteByte((IntPtr)Jordan, byte.Parse(textBox1.Text.ToString())); таксс давненько не задавал...

Как посчитать функцию из TextBox1 и вывести ответ в этот же TextBox1
Доброго дня суток, подскажите пожалуйста как посчитать функцию из TextBox1 (в TextBox1 уже имеется...

MouseDobleClick(textbox1) должен делать Height(textbox1) 40
MouseDobleClick(textbox1) должен делать Height(textbox1) 40

Выдает ошибку когда очищаю textBox1. Не могу нормальную условию поставить
Делаю программу которая переводит Цельсий в Кельвин и Фаренгейт и наоборот. Поставил условия if...

4
gitarillo
733 / 533 / 47
Регистрация: 17.06.2010
Сообщений: 1,035
Записей в блоге: 1
22.03.2011, 15:20 2
SergKr,
vb.net
1
2
Dim COMMAND = New OleDbCommand("INSERT INTO [Пользователи] (
                                       Фамилия) VALUES ('" & TextBox1.Text & "')"
0
SergKr
65 / 39 / 3
Регистрация: 07.12.2010
Сообщений: 327
22.03.2011, 16:22  [ТС] 3
А вот мне сейчас нужно записать всё в одну строку, но почему-то не получается:
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'Записываем всё в базу данных...
        'Добавление записи...
        Dim pathBD As String
        pathBD = CurDir() & "\polsovat.mdb"
        Dim nach1 As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
        Dim nach2 As String = ";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Password="
        Dim nach3 As String = "S289nm"
        Dim nach As String
        nach = nach1 & pathBD & nach2 & nach3
        Dim CONNECTION = New OleDbConnection(nach)
        CONNECTION.Open()
 
 
        Dim zap1 As String = "INSERT INTO [Пользователи] ("
        Dim zap2 As String = "[Фамилия],"
        Dim zap3 As String = ") VALUES ("
        Dim zap4 As String = "'" & TextBox1.Text & "',"
        Dim zap5 As String = ")"
        Dim zap6 As String = "[Имя],"
        Dim zap7 As String = "'" & TextBox2.Text & "',"
        Dim Otch As String = "'" & TextBox3.Text & "',"
        Dim Dolgnost1 As String = "'" & TextBox4.Text & "',"
        Dim Otch1 As String = "[Отчество],"
        Dim Dolgnost As String = "[Должность],"
        Dim pass As String = "[Пароль],"
        Dim pass1 As String = "'" & TextBox5.Text & "',"
        Dim newcard As String = "[paramNewCard],"
        Dim editcard As String = "[paramEditCard],"
        Dim deletcard As String = "[paramDeletCard],"
        Dim otchetcard As String = "[paramOtchetCard],"
        Dim commandline As String = "[paramCommandLine],"
        Dim colorgwindows As String = "[paramColorGWindow],"
        Dim colornewcard As String = "[paramColorNewCard],"
        Dim language As String = "[paramLanguage],"
        Dim textrichbox As String = "[paramTextRichBox],"
        Dim printer As String = "[paramPrinter],"
        Dim chat As String = "[paramChat],"
        Dim editchat As String = "[paramEditChat],"
        Dim rassilka As String = "[paramRassilka],"
        Dim sound As String = "[paramSound]"
 
        Dim cb1 As String
        Dim cb2 As String
        Dim cb3 As String
        Dim cb4 As String
        Dim cb5 As String
        Dim cb6 As String
        Dim cb7 As String
        Dim cb8 As String
        Dim cb9 As String
        Dim cb10 As String
        Dim cb11 As String
        Dim cb12 As String
        Dim cb13 As String
        Dim cb14 As String
        CheckBox1.Checked = False
        CheckBox2.Checked = False
        CheckBox3.Checked = False
        CheckBox4.Checked = False
        CheckBox5.Checked = False
        CheckBox6.Checked = False
        CheckBox7.Checked = False
        CheckBox8.Checked = False
        CheckBox9.Checked = False
        CheckBox10.Checked = False
        CheckBox11.Checked = False
        CheckBox12.Checked = False
        CheckBox13.Checked = False
        CheckBox14.Checked = False
 
 
 
        If CheckBox1.Checked = True Then cb1 = "'1'," Else cb1 = "'0',"
        If CheckBox2.Checked = True Then cb2 = "'1'," Else cb1 = "'0',"
        If CheckBox3.Checked = True Then cb3 = "'1'," Else cb1 = "'0',"
        If CheckBox4.Checked = True Then cb4 = "'1'," Else cb1 = "'0',"
        If CheckBox5.Checked = True Then cb5 = "'1'," Else cb1 = "'0',"
        If CheckBox6.Checked = True Then cb6 = "'1'," Else cb1 = "'0',"
        If CheckBox7.Checked = True Then cb7 = "'1'," Else cb1 = "'0',"
        If CheckBox8.Checked = True Then cb8 = "'1'," Else cb1 = "'0',"
        If CheckBox9.Checked = True Then cb9 = "'1'," Else cb1 = "'0',"
        If CheckBox10.Checked = True Then cb10 = "'1'," Else cb1 = "'0',"
        If CheckBox11.Checked = True Then cb11 = "'1'," Else cb1 = "'0',"
        If CheckBox12.Checked = True Then cb12 = "'1'," Else cb1 = "'0',"
        If CheckBox13.Checked = True Then cb13 = "'1'," Else cb1 = "'0',"
        If CheckBox14.Checked = True Then cb14 = "'1'" Else cb1 = "'0'"
 
 
        Dim zap As String = zap1 & zap2 & zap6 & Otch1 & Dolgnost & pass & newcard & editcard & deletcard & otchetcard &
            commandline & colorgwindows & colornewcard & language & textrichbox & printer & chat & editchat & rassilka & sound &
            zap3 & zap4 & zap7 & Otch & Dolgnost1 & pass1 & cb1 & cb2 & cb3 & cb4 & cb5 & cb6 & cb7 & cb8 &
            cb9 & cb10 & cb11 & cb12 & cb13 & cb14 & zap5
        Dim COMMAND = New OleDbCommand(zap)
        COMMAND.Connection = CONNECTION
        
        COMMAND.ExecuteNonQuery()
 
 
        CONNECTION.Close()
 
 
        Me.Close()
    End Sub
Выдаёт: Не совпадает число значений запроса и число результирующих полей. Может можно как-то по другому (не таким большим текстом) записать в строку значение 4-х TextBox'ов и 14 CheckBox'ов?
0
gitarillo
733 / 533 / 47
Регистрация: 17.06.2010
Сообщений: 1,035
Записей в блоге: 1
22.03.2011, 16:56 4
SergKr,
Во -первых, замените этот страх:
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
CheckBox1.Checked = False
        CheckBox2.Checked = False
        CheckBox3.Checked = False
        CheckBox4.Checked = False
        CheckBox5.Checked = False
        CheckBox6.Checked = False
        CheckBox7.Checked = False
        CheckBox8.Checked = False
        CheckBox9.Checked = False
        CheckBox10.Checked = False
        CheckBox11.Checked = False
        CheckBox12.Checked = False
        CheckBox13.Checked = False
        CheckBox14.Checked = False
На
vb.net
1
2
3
4
5
For Each chb As Object In Me.Controls
                If TypeName(chb) = "CheckBox" Then
                    chb.Checked = False
                End If
            Next
Во-вторых , анологичным методом проверяй выбранные чекбоксы
vb.net
1
2
3
4
5
6
7
For Each chb As Object In Me.Controls
                If TypeName(chb) = "CheckBox" Then
 
                  If    chb.Checked Then <Значние перемнной для запроса>
 
                End If
            Next

Цитата Сообщение от SergKr Посмотреть сообщение
Не совпадает число значений запроса и число результирующих полей
Проверь в пошаговом режиме что получается в строке запроса. И посмотри что в базе. Ты отправляешь в запросе скорее всего больше полей, чем у тебя в таблице.
1
SergKr
65 / 39 / 3
Регистрация: 07.12.2010
Сообщений: 327
22.03.2011, 17:21  [ТС] 5
Спасибо. Допёр.
0
22.03.2011, 17:21
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.03.2011, 17:21

Private Sub CommandButton3_Click() TextBox1.Text = TextBox1.Text + "A" + Str(ActiveCell.Row) End Sub
Помогите пожалуйста! Private Sub CommandButton3_Click() TextBox1.Text = TextBox1.Text + &quot;A&quot; +...

Form1.textbox1.text = Form2.textbox1.text
Всем добро. Суть алгоритма легкий и понятный. Я примерно так программировал на VB. Вот не давно...

Не могу записать в БД
Не знаю почему не получается, пытался по-разному, пересмотрел несколько вариантов, но всё равно не...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru