Insert в базу данных

Мегапризрак

Дата: 24.03.2010 17:54:48

Пишу вот такой код

Dim conn As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\ASPNETDB.MDF;Integrated Security=True;User Instance=True")
            Dim cmd As New SqlCommand
            cmd = New SqlCommand("INSERT INTO Message(ID, Пользователь, Тема, Сообщение, Прочитано, IsПользователь, IsПолучатель, Получатель, Дата) VALUES (@ID, @Пользователь, @Тема, @Сообщение, @Прочитано, @IsПользователь, @IsПолучатель, @Получатель, @Дата", conn)
            conn.Open()
            cmd.Parameters.Add("@ID", SqlDbType.UniqueIdentifier).Value = Guid.NewGuid.ToString
            cmd.Parameters.Add("@Пользователь", SqlDbType.NVarChar).Value = Membership.GetUser.UserName
            cmd.Parameters.Add("@Тема", SqlDbType.NVarChar).Value = TextBox2.Text
            cmd.Parameters.Add("@Сообщение", SqlDbType.NVarChar).Value = TextBox3.Text
            cmd.Parameters.Add("@Прочитано", SqlDbType.Bit).Value = False
            cmd.Parameters.Add("@IsПользователь", SqlDbType.Bit).Value = True
            cmd.Parameters.Add("@IsПолучатель", SqlDbType.Bit).Value = True
            cmd.Parameters.Add("@Получатель", SqlDbType.NVarChar).Value = TextBox1.Text
            cmd.Parameters.Add("@Дата", SqlDbType.DateTime).Value = DateTime.Now
            conn.Close()

Но данные почемуто не добавляются в базу данных. чего не хватает?

Gwa

Дата: 24.03.2010 17:57:33

а не нужно разве делать Post() ?

МСУ

Дата: 24.03.2010 17:58:51

А где тут выполнение SqlCommand?

Мегапризрак

Дата: 24.03.2010 18:02:26

МСУ

А где тут выполнение SqlCommand?

Не знаю. Все перепробывал. Не работает и не какие ошибки при этом не выдает

ShSerge

Дата: 24.03.2010 18:04:26

Мегапризрак,

А русские названия полей в квадратные скобки взяты?

Яростный Меч

Дата: 24.03.2010 18:05:42

Мегапризрак

МСУ

А где тут выполнение SqlCommand?

Не знаю. Все перепробывал. Не работает и не какие ошибки при этом не выдает

И всё-таки попробуйте выполнить команду

cmd.ExecuteNonQuery();

перед закрытием соединения.

ShSerge

Дата: 24.03.2010 18:06:17

И параметры до опен надо бы вроде как.

Яростный Меч

Дата: 24.03.2010 18:08:30

ShSerge

И параметры до опен надо бы вроде как.

Необязательно.
А вот имена лучше сделать нормальные, английские. Мало ли что...

Мегапризрак

Дата: 24.03.2010 18:12:57

ShSerge

Мегапризрак,

А русские названия полей в квадратные скобки взяты?

Эта строка проверена через элемент sqldatasourse

Мегапризрак

Дата: 24.03.2010 18:30:54

Яростный Меч, Спасибо. все работает. Вот только нимного переделал

Dim conn As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\ASPNETDB.MDF;Integrated Security=True;User Instance=True")
            Dim cmd As New SqlCommand
            cmd = New SqlCommand("INSERT INTO Message(ID, Пользователь, Тема, Сообщение, Прочитано, IsПользователь, IsПолучатель, Получатель, Дата) VALUES (@ID, @Пользователь, @Тема, @Сообщение, @Прочитано, @IsПользователь, @IsПолучатель, @Получатель, @Дата)", conn)
            conn.Open()
            cmd.Parameters.AddWithValue("@ID", Guid.NewGuid)
            cmd.Parameters.AddWithValue("@Пользователь", Membership.GetUser.UserName)
            cmd.Parameters.AddWithValue("@Тема", TextBox2.Text)
            cmd.Parameters.AddWithValue("@Сообщение", TextBox3.Text)
            cmd.Parameters.AddWithValue("@Прочитано", False)
            cmd.Parameters.AddWithValue("@IsПользователь", True)
            cmd.Parameters.AddWithValue("@IsПолучатель", True)
            cmd.Parameters.AddWithValue("@Получатель", TextBox1.Text)
            cmd.Parameters.AddWithValue("@Дата", Date.Now)
            cmd.ExecuteNonQuery()
            conn.Close()