|
28.08.2008, 09:29
#35510084
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
|
|
|
|
Всетаки может кто подскажет что делаю не так , вроде бы и ошибки не выходит ,но и запись в базу не происходит 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.
Private Sub DGVForms_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.TblSotrudnikiTableAdapter.Fill(Me.SotrudnikiDataSet.tblSotrudniki)
Sotrudniki.ConnectDB.ConnectOpen()
Me.DGV.DataSource = GetData(Sotrudniki.ConnectDB.Cn)
Me.tbl = GetData(Sotrudniki.ConnectDB.Cn)
End Sub
Private Function GetData(ByVal Cn As System.Data.OleDb.OleDbConnection)
Dim tbl As System.Data.DataTable
tbl = New System.Data.DataTable()
'Определение команды
Dim CM As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand()
CM.CommandType = CommandType.Text
CM.CommandText = "SELECT * FROM tblSotrudniki"
CM.Connection = Cn
'Определение DataAdapter
Dim DA As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter()
DA.SelectCommand = CM
DA.Fill(tbl)
GetData = tbl
End Function
Private Index As Integer
Protected Overrides Sub OnClosed(ByVal e As System.EventArgs)
Sotrudniki.ConnectDB.ConnectClose()
MyBase.OnClosed(e)
End Sub
Public Shared Function GetPhoto(ByVal filePath As String) As Byte()
Dim fs As IO.FileStream = New IO.FileStream(filePath, IO.FileMode.Open, IO.FileAccess.Read) ' при выполнении записи ругается вот на эту строчку
Dim br As IO.BinaryReader = New IO.BinaryReader(fs)
Dim photo() As Byte = br.ReadBytes(fs.Length)
br.Close()
fs.Close()
Return photo
End Function
Public Sub Insert(ByVal Familia As String, ByVal Imya As String, ByVal Otchestvo As String, ByVal jobtitle As String, ByVal email As String, ByVal Adress As String, ByVal HomePhone As Integer, ByVal JobPhone As Integer, ByVal Mobile As Integer, ByVal Datarozdeniya As Integer, ByVal photoFilePatch As Integer, ByVal marks As String)
Dim CM As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand
'Присваиваем значение команде
Dim Sm As String
Dim photo() As Byte = GetPhoto(photoFilePatch)
Sm = "INSERT INTO tblSotrudniki(Familia,Imya,Otchestvo,jobtitle,email,Adress,HomePhone,JobPhone,Mobile,Datarozdeniya,photo,marks)" & _
"Values ('" & Familia & _
"', '" & Imya & _
"', '" & Otchestvo & _
"', '" & jobtitle & _
"', '" & email & _
"', '" & Adress & _
"', " & HomePhone & _
", " & JobPhone & _
", " & Mobile & _
", " & Datarozdeniya & _
", " & photo.Length & _
", '" & marks & "' ) "
CM.Connection = Sotrudniki.ConnectDB.Cn
CM.CommandText = Sm
Sotrudniki.ConnectDB.ConnectOpen()
CM.CommandType = CommandType.Text
CM.ExecuteNonQuery()
End Sub
Private Sub btnAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAdd.Click
Call System.Windows.Forms.UnhandledExceptionMode.Automatic.GetTypeCode()
Me.Insert(txtFamilia.Text, txtImya.Text, txtOtchestvo.Text, txtjobtitle.Text, txtemail.Text, txtAdress.Text, HomePhone.Text, JobPhone.Text, Mobile.Text, Datarozdeniya.Text, photo.ImageLocation, txtmarks.Text)
Me.DialogResult = System.Windows.Forms.DialogResult.OK
MsgBox("Запись сохранена")
'повторное обращение к БД для обновления DGV
Me.TblSotrudnikiTableAdapter.Fill(Me.SotrudnikiDataSet.tblSotrudniki)
Me.DGV.DataSource = GetData(Sotrudniki.ConnectDB.Cn)
Me.tbl = GetData(Sotrudniki.ConnectDB.Cn)
End Sub
|
|
|
