Мммм, ну ни как я не въеду саму концепцию, очевидно.
Есть следующий код, и он работает:
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.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Настройка команды SELECT
cmdSqlServerSelect.Connection = cnSqlServer
cmdSqlServerSelect.CommandType = CommandType.StoredProcedure
cmdSqlServerSelect.CommandText = "dbo.spSelect"
'------------------------------------------------------------------
'Настройка команды UPDATE
cmdSqlServerUpdate.Connection = cnSqlServer
cmdSqlServerUpdate.CommandType = CommandType.StoredProcedure
cmdSqlServerUpdate.CommandText = "dbo.spUpdateTelo"
cmdSqlServerUpdate.Parameters.Add("@TeloId", SqlDbType.Int, 4 , "teloid")
cmdSqlServerUpdate.Parameters("@TeloId").Direction = ParameterDirection.Input
cmdSqlServerUpdate.Parameters("@TeloId").SourceVersion = DataRowVersion.Current
cmdSqlServerUpdate.Parameters.Add("@City", SqlDbType.Char, 40 , "city")
cmdSqlServerUpdate.Parameters("@City").Direction = ParameterDirection.Input
cmdSqlServerUpdate.Parameters("@City").SourceVersion = DataRowVersion.Current
cmdSqlServerUpdate.Parameters.Add("@FIO", SqlDbType.Char, 50 , "fio")
cmdSqlServerUpdate.Parameters("@FIO").Direction = ParameterDirection.Input
cmdSqlServerUpdate.Parameters("@FIO").SourceVersion = DataRowVersion.Current
cmdSqlServerUpdate.Parameters.Add("@CityId", SqlDbType.Char, 40 , "CityId")
cmdSqlServerUpdate.Parameters("@CityId").Direction = ParameterDirection.Input
cmdSqlServerUpdate.Parameters("@CityId").SourceVersion = DataRowVersion.Current
cmdSqlServerUpdate.Parameters.Add("@CityIdold", SqlDbType.Char, 40 , "CityId")
cmdSqlServerUpdate.Parameters("@CityId").Direction = ParameterDirection.Input
cmdSqlServerUpdate.Parameters("@CityId").SourceVersion = DataRowVersion.Original
'--------------------------------------------------------------
'Настройка команды DELETE
cmdSqlServerDelete.Connection = cnSqlServer
cmdSqlServerDelete.CommandType = CommandType.StoredProcedure
cmdSqlServerDelete.CommandText = "dbo.spDeleteTelo"
cmdSqlServerDelete.Parameters.Add("@TeloId", SqlDbType.Int, 4 , "teloid")
cmdSqlServerDelete.Parameters("@TeloId").Direction = ParameterDirection.Input
cmdSqlServerDelete.Parameters("@TeloId").SourceVersion = DataRowVersion.Original
cmdSqlServerDelete.Parameters.Add("@CityId", SqlDbType.Char, 40 , "cityid")
cmdSqlServerDelete.Parameters("@CityId").Direction = ParameterDirection.Input
cmdSqlServerDelete.Parameters("@CityId").SourceVersion = DataRowVersion.Original
'----------------------------------------------------------
'Настройка команды INSERT
cmdSqlServerInsert.Connection = cnSqlServer
cmdSqlServerInsert.CommandType = CommandType.StoredProcedure
cmdSqlServerInsert.CommandText = "dbo.spInsertTelo"
cmdSqlServerInsert.Parameters.Add("@City", SqlDbType.Char, 40 , "city")
cmdSqlServerInsert.Parameters("@City").Direction = ParameterDirection.Input
'cmdSqlServerInsert.Parameters("@City").SourceVersion = DataRowVersion.Current
cmdSqlServerInsert.Parameters.Add("@FIO", SqlDbType.Char, 50 , "fio")
cmdSqlServerInsert.Parameters("@FIO").Direction = ParameterDirection.Input
'cmdSqlServerInsert.Parameters("@FIO").SourceVersion = DataRowVersion.Current
cmdSqlServerInsert.Parameters.Add("@CityId", SqlDbType.Char, 40 , "cityid")
cmdSqlServerInsert.Parameters("@CityId").Direction = ParameterDirection.Input
'cmdSqlServerInsert.Parameters("@CityId").SourceVersion = DataRowVersion.Current
'---------------------------------------------------------------------
daTest.TableMappings.Add("Table", "TeloTbl")
daTest.TableMappings.Add("Table1", "CityTbl")
daTest.SelectCommand = cmdSqlServerSelect
daTest.UpdateCommand = cmdSqlServerUpdate
daTest.InsertCommand = cmdSqlServerInsert
daTest.DeleteCommand = cmdSqlServerDelete
daTest.Fill(dsTest)
dgTelo.DataSource = dsTest.Tables("TeloTbl")
dgCity.DataSource = dsTest.Tables("CityTbl")
End Sub
'Функция создания строки подключения к серверу
Public Shared Function BuildCnnStr() As String
Dim strTemp As String
strTemp = "data source=409ADMIN;integrated security=SSPI;initial catalog=delupins;persist security info=False"
'strTemp = "data source=STALKER;integrated security=FALSE;initial catalog=delupins;persist security info=False;uid=sa;pwd="
Return strTemp
End Function
Private Sub DelDataGrid(ByVal dg As DataGrid)
If Not Me.BindingContext(dg.DataSource).Count = 0 Then
Me.BindingContext(dg.DataSource).RemoveAt(Me.BindingContext(dg.DataSource).Position)
End If
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
DelDataGrid(dgTelo)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
DelDataGrid(dgCity)
End Sub
Private Sub bttnDelonServer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnDelonServer.Click
daTest.Update(dsTest.Tables("TeloTbl").Select("", "", DataViewRowState.Deleted))
daTest.Update(dsTest.Tables("TeloTbl").Select("", "", DataViewRowState.Added))
daTest.Update(dsTest.Tables("TeloTbl").Select("", "", DataViewRowState.ModifiedCurrent))
daTest.Update(dsTest.Tables("CityTbl").Select("", "", DataViewRowState.Deleted))
daTest.Update(dsTest.Tables("CityTbl").Select("", "", DataViewRowState.Added))
daTest.Update(dsTest.Tables("CityTbl").Select("", "", DataViewRowState.ModifiedCurrent))
End Sub
Хранимая утилита например для INSERT такая:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
PROCEDURE dbo.spInsertTelo
(@FIO char( 50 )= 'XXX',@City char(40)='XXX',@CityId char(40)='XXX')
AS
if @cityid<> 'XXX'
INSERT INTO dbo.CityTbl(CityId) VALUES (@CityId)
if @FIO<> 'XXX'
INSERT INTO dbo.TeloTbl(FIO, City) VALUES(@FIO,@City)
/* SET NOCOUNT ON */
RETURN
Я так понимаю, что если у меня около 15 таблиц в DataSet, и я хочу иметь всего три процедуры, по одной на каждую операцию(INSERT,UPDATE,DELETE) обновления данных в базе на SQL сервере я должен буду, вопервых для того же daTest.InsertCommand описать кучу параметров, а в самой хранимой процедуре указать все эти параметры и перед каждым оператором INSERT делать проверку, есть такие параметры, т.е. есть ли строки на вставление или нет. Так?
Как альтернатива иметь несколько процедур для каждой операции, но тогда придется менять параметр
1.
cmdSqlServerInsert.CommandText = "dbo.spInsertTelo"
каждый раз когда нужно выполнять другую хранимую процедуру.
Как все таки правильно?Извините за натойчивость и сумбур, но это мой первый проект, так что пытаюсь разобраться:)
