vb.net to xampp sql save record
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Open_Db()
cmd.CommandText = "INSERT into name_list (name) values ('" & txtName.Text & "')"
cmd.Execute()
Close_Db()
Open_Db()
Dim acount As String
acount = "select * from name_list"
rs.Open(acount, cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
With rs
If Not .EOF Then
Do While Not .EOF
LVNameList.Items.Add(rs.Fields("name").Value)
.MoveNext()
Loop
End If
End With
Close_Db()
MsgBox("Record Added")
End Sub
End Class
Module Module1
Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Public cmd As ADODB.Command
Public Sub Close_Db()
cn.Close()
cn = Nothing
rs = Nothing
cmd = Nothing
End Sub
Public Sub Open_Db()
cn = New ADODB.Connection
rs = New ADODB.Recordset
cmd = New ADODB.Command
cn.CursorLocation = ADODB.CursorLocationEnum.adUseClient
cn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=localhost;" _
& "USER=root;" _
& "PASSWORD=;" _
& "DATABASE=name;" _
& "PORT=3306;" _
& "OPTION=4;"
cn.Open()
cmd.ActiveConnection = cn
cmd.CommandType = ADODB.CommandTypeEnum.adCmdText
End Sub
End Module
Что делает видео по-настоящему запоминающимся? Наверное, та самая атмосфера, которая заставляет забыть о времени. Когда вы заходите на RUVIDEO, чтобы посмотреть онлайн «vb.net to xampp sql save record», вы рассчитываете на нечто большее, чем просто загрузку плеера. И мы это понимаем. Контент такого уровня заслуживает того, чтобы его смотрели в HD 1080, без дрожания картинки и бесконечного буферизации.
Честно говоря, Rutube сегодня — это кладезь уникальных находок, которые часто теряются в общем шуме. Мы же вытаскиваем на поверхность самое интересное. Будь то динамичный экшн, глубокий разбор темы от любимого автора или просто уютное видео для настроения — всё это доступно здесь бесплатно и без лишних формальностей. Никаких «заполните анкету, чтобы продолжить». Только вы, ваш экран и качественный поток.
Если вас зацепило это видео, не забудьте взглянуть на похожие материалы в блоке справа. Мы откалибровали наши алгоритмы так, чтобы они подбирали контент не просто «по тегам», а по настроению и смыслу. Ведь в конечном итоге, онлайн-кинотеатр — это не склад файлов, а место, где каждый вечер можно найти свою историю. Приятного вам отдыха на RUVIDEO!
Видео взято из открытых источников Rutube. Если вы правообладатель, обратитесь к первоисточнику.