1、求vb.net访问sql数据库的代码
tringstr="DataSource=.;InitialCatalog=user;User Id=sa;Pwd=";sqlConnectionconn=newsqlConnection(str);
conn.Open();
Stringsql="selectcount(*)from info wherename='"+textBox1.Text+"'andpass='"+textBox2+"'";
sqlCommandcmd=newsqlCommand(sql,conn);
if((int)cmd.ExcuteScalr()>0)'用于执行查询语句，并返回结集果中的第一条记录的第一个字段的值。该方法的适合有一个结果的查询，例如使用Sum,Avg,Max及Min等函数的sql语句。
lable1.Text="成功登陆";
2、获取DataGridView中选中行的某个字段的vb.net代码
rows=dgvUser.CurrentCellAddress.Y.ToString'获得选中行的索引值
enUser.UserID=dgvUser.Rows(rows).Cells(0).Value'选中行的第一个字段
3、获取dataTable中第一行的第二个字段
myDT.Rows(0).Item(2)=enUser.UserPwd
4、更新有主键的表
5、更新没有主键的表
Dim strsqlAs String ="updateT_BasicDataSet set rate='" &enBaseDataSet.Rate&"',tmpRate='" &enBaseDataSet.tmpRate&"',increaseTime='" &
enBaseDataSet.IncreaseTime&"',lastTime='" & enBaseDataSet.LastTime
&"',prepareTime='" & enBaseDataSet.prepareTime &"',lastMoney='" &
enBaseDataSet.lastMoney& "'"
6、ExecuteNonQuery对连接执行Transact-sql语句并返回受
影响的行数
Dim cmd AssqlCommand = NewsqlCommand(strsql,conn)
conn.Open()
Ifcmd.ExecuteNonQuery> 0 Then 'ExecuteNonQuery对连接执行Transact-sql语句并返回受影响的行数
Return "修改成功"
EndIf
7、导出Excel,注意不要有空行，否则有错误出现
8、Vb.Net中，获取dataGridView中某行某列的值
enLine.CardNo =dgvShowData(j,i).Value.ToString()第i行，第j列的数据。
enLine.CardNo =dgvShowData.Rows(i).Cells(j).Value
9、Vb.net中，删除dgv控件中的指定记录
'在控件上删除特定行
dgvShowData.Rows.RemoveAt(dgvShowData.CurrentRow.Index)
10、vb.net中，删除dgv控件中所有的记录
MsgBox("下机成功！")
dgvShowData.DataSource ="null"
11、 然后在删除指定数据行：
1.'删除datagridview中的数据行
2.'DGVuser.Rows.Remove(DGVuser.CurrentRow)也可
3.DGVuser.Rows.RemoveAt(DGVuser.CurrentRow.Index)</span>
12、 Fromat()函数的运用
http://www.lob.cn/jq/kfjq/572.shtml
http://www.doc88.com/p-21781707477.html
13、把数据库中Time类型的数据转换成string
DimlogTime As TimeSpan
logTime = myDT.Rows(0).Item(8)
enCardNo1.OnLineTime= Convert.ToString(logTime)
14、日期时间获取用Now和Today与TimeOfToday的区别
登陆时的时间间隔，如果用时间获取通过NOW来获取，没有什么障碍，计算时直接相减无障碍（尽管跨事件）；
而我采用的是Today来获取日期，TimeOfToday来获取时间，采用这种方式的话获取间隔时间时，我们无法在下机事件中，减去在上机事件中的上机变量；变量在下机事件中显示不存在，此种情况我就在网上查资料，上面说可以采用全局变量来解决。然后我就是这去做，完全可以。现在我又学会了方法。
代码：
上机
'全局变量，为的是在下机的时候用
Public Shared loginDate As Date
Public Shared loginTime As Date
Private Sub btnOnline_Click(senderAsObject,e As EventArgs) Handles btnOnline.Click
Dim enLine AsNew Entity.line
DimresultTable As DataTable
Dim lineFac AsNew Facade.LineFac
IftxtCardNo.Text = "" Then
MsgBox("请输入卡号！")
Exit Sub
End If
IftxtStuNo.Text = "" Then
MsgBox("请输入学号！")
Exit Sub
End If
loginDate =Today
loginTime =TimeOfDay
txtOnlineDate.Text = loginDate
txtOnlineTime.Text = loginTime
enLine.CardNo= txtCardNo.Text
enLine.StuNO =txtStuNo.Text
enLine.CardType = cmbCardType.Text
enLine.OnLineDate = txtOnlineDate.Text
enLine.OnLineTime = txtOnlineTime.Text
Try
resultTable =lineFac.StuLoginSystemFac(enLine)
If resultTable.Rows.Count > 0Then
txtAcademy.Text =resultTable.Rows(0).Item(4)
txtName.Text =resultTable.Rows(0).Item(2)
txtSex.Text =resultTable.Rows(0).Item(3)
txtLastMoney.Text =resultTable.Rows(0).Item(8)
If CType(txtLastMoney.Text,Single) < 0.5 Then
MsgBox("金额不足0.5元，请充值上机！")
Exit Sub
End If
End If
Catch ex AsException
MsgBox(ex.Message)
Exit Sub
EndTry
End Sub
下机
Private Sub btnOffline_Click(sender As Object,e AsEventArgs) Handles btnOffline.Click
DimConsumeStanderFac As NewFacade.BaseDataSetFac
DimenConsumeStander As NewEntity.BaseDataSet
DimoffLineDate As Date
DimoffLineTime As Date
Dim lineTimeAs Long
'常用用户
Dim rate AsString
'临时用户
Dim temRate AsString
'返回计算标准
enConsumeStander =ConsumeStanderFac.CountConsumeStanderFac()
IfcmbCardType.Text = "固定用户"Then
rate = enConsumeStander.Rate
Else
If cmbCardType.Text ="临时用户" Then
temRate =enConsumeStander.tmpRate
End If
End If
offLineDate =Today
offLineTime=TimeOfDay
txtOffLineDate.Text = offLineDate
txtOfflineTime.Text = offLineTime
lineTime =DateDiff(DateInterval.Minute,loginTime,offLineTime)
txtConsumeTime.Text =lineTime.ToString
End Sub
随着系统的进行，待续。。。。
原文链接：https://www.f2er.com/vb/258779.html