Долго не решался бросить пример сюда ведь я пишу на 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.
cm_s.Connection = Me.Conn1
cm_s.CommandText = "SELECT КодФИО, Фамилия, Имя, Отчество, ДатаРожден, ПасСерия, ПасНомер, ДатаВыдачи, КемВыдан, АдресПрописан, АдресФактич, МестоРаботы, Дополнительно FROM ФИО"
cm_i.CommandText = "INSERT INTO ФИО (Фамилия, Имя, Отчество, ДатаРожден, ПасСерия, ПасНомер, ДатаВыдачи" & _
", КемВыдан, АдресПрописан, АдресФактич, МестоРаботы, Дополнительно, дата_i, дата_u)" & _
" VALUES (@Фамилия, @Имя, @Отчество, @ДатаРожден, @ПасСерия, @ПасНомер" & _
", @ДатаВыдачи, @КемВыдан, @АдресПрописан, @АдресФактич, @МестоРаботы, @Дополнительно, CURRENT_TIMESTAMP, CURRENT_TIMESTAMP)" & _
"; SELECT КодФИО, Фамилия, Имя, Отчество, ДатаРожден, ПасСерия, ПасНомер, ДатаВыдачи, КемВыдан, АдресПрописан, АдресФактич" & _
", МестоРаботы, Дополнительно FROM ФИО WHERE (КодФИО = @@IDENTITY)"
cm_i.Connection = Me.Conn1
cm_i.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Фамилия", System.Data.SqlDbType.NVarChar, 64, "Фамилия"))
cm_i.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Имя", System.Data.SqlDbType.NVarChar, 64, "Имя"))
cm_i.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Отчество", System.Data.SqlDbType.NVarChar, 72, "Отчество"))
cm_i.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ДатаРожден", System.Data.SqlDbType.DateTime, 8, "ДатаРожден"))
cm_i.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ПасСерия", System.Data.SqlDbType.VarChar, 7, "ПасСерия"))
cm_i.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ПасНомер", System.Data.SqlDbType.Int, 4, "ПасНомер"))
cm_i.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ДатаВыдачи", System.Data.SqlDbType.DateTime, 8, "ДатаВыдачи"))
cm_i.Parameters.Add(New System.Data.SqlClient.SqlParameter("@КемВыдан", System.Data.SqlDbType.NVarChar, 256, "КемВыдан"))
cm_i.Parameters.Add(New System.Data.SqlClient.SqlParameter("@АдресПрописан", System.Data.SqlDbType.NVarChar, 256, "АдресПрописан"))
cm_i.Parameters.Add(New System.Data.SqlClient.SqlParameter("@АдресФактич", System.Data.SqlDbType.NVarChar, 256, "АдресФактич"))
cm_i.Parameters.Add(New System.Data.SqlClient.SqlParameter("@МестоРаботы", System.Data.SqlDbType.NVarChar, 128, "МестоРаботы"))
cm_i.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Дополнительно", System.Data.SqlDbType.NVarChar, 256, "Дополнительно"))
cm_u.CommandText = "UPDATE ФИО SET Фамилия = @Фамилия, Имя = @Имя, Отчество = @Отчество, ДатаРожден = @ДатаРожден" & _
", ПасСерия = @ПасСерия, ПасНомер = @ПасНомер, ДатаВыдачи = @ДатаВыдачи, КемВыдан = @КемВыдан, АдресПрописан = @АдресПрописан" & _
", АдресФактич = @АдресФактич, МестоРаботы = @МестоРаботы, Дополнительно = @Дополнительно, инет = 0, дата_u = CURRENT_TIMESTAMP WHERE (КодФИО = @Original_КодФИО)" & _
"; SELECT КодФИО, Фамилия, Имя, Отчество, ДатаРожден, ПасСерия, ПасНомер, ДатаВыдачи, КемВыдан, АдресПрописан" & _
", АдресФактич, МестоРаботы, Дополнительно FROM ФИО WHERE (КодФИО = @КодФИО)"
cm_u.Connection = Me.Conn1
cm_u.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Фамилия", System.Data.SqlDbType.NVarChar, 64, "Фамилия"))
cm_u.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Имя", System.Data.SqlDbType.NVarChar, 64, "Имя"))
cm_u.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Отчество", System.Data.SqlDbType.NVarChar, 72, "Отчество"))
cm_u.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ДатаРожден", System.Data.SqlDbType.DateTime, 8, "ДатаРожден"))
cm_u.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ПасСерия", System.Data.SqlDbType.VarChar, 7, "ПасСерия"))
cm_u.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ПасНомер", System.Data.SqlDbType.Int, 4, "ПасНомер"))
cm_u.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ДатаВыдачи", System.Data.SqlDbType.DateTime, 8, "ДатаВыдачи"))
cm_u.Parameters.Add(New System.Data.SqlClient.SqlParameter("@КемВыдан", System.Data.SqlDbType.NVarChar, 256, "КемВыдан"))
cm_u.Parameters.Add(New System.Data.SqlClient.SqlParameter("@АдресПрописан", System.Data.SqlDbType.NVarChar, 256, "АдресПрописан"))
cm_u.Parameters.Add(New System.Data.SqlClient.SqlParameter("@АдресФактич", System.Data.SqlDbType.NVarChar, 256, "АдресФактич"))
cm_u.Parameters.Add(New System.Data.SqlClient.SqlParameter("@МестоРаботы", System.Data.SqlDbType.NVarChar, 128, "МестоРаботы"))
cm_u.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Дополнительно", System.Data.SqlDbType.NVarChar, 256, "Дополнительно"))
cm_u.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_КодФИО", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "КодФИО", System.Data.DataRowVersion.Original, Nothing))
cm_u.Parameters.Add(New System.Data.SqlClient.SqlParameter("@КодФИО", System.Data.SqlDbType.Int, 4, "КодФИО"))
cm_d.Connection = Me.Conn1
cm_d.CommandText = "DELETE FROM ФИО WHERE (КодФИО = @Original_КодФИО)"
cm_d.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_КодФИО", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "КодФИО", System.Data.DataRowVersion.Original, Nothing))
ad1.SelectCommand = cm_s
ad1.InsertCommand = cm_i
ad1.UpdateCommand = cm_u
ad1.DeleteCommand = cm_d
ds1.Tables.Add("ФИО")
ad1.Fill(ds1.Tables("ФИО"))
Me.Grid1.DataSource = ds1.Tables("ФИО")
Этот пример не хотел работать пока не прописал ВСЕ параметры.
И после этого мне хочется задать один и тот-же вопрос:
Неужели писать всю эту околесицу лучше, быстрее, меньше ошибок, чем работать в дизайнере?
И главный прикол: Посмотрите в код - что создает дизайнер? - да те-же строки,
их можно редактировать и "там" и здесь.
Ну и еще вопрос: работаю и живу где-то в сибири - Мегион.
Не могу достать нормальную инсталляцию VS.NET2003,
а тут уже про 2005 говорят. Может кто-нибудь поможет с этим. |
